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\  SECTION  I 

\  /  INTRODUCTION 

^Proper  computer  program  documentation  is  essential  to  the  effective 
use,  maintenance,  and  modification  of  computer  software.  The  documentation 
should  be  comprised  of  both  user  and  programmer  information  and  be  designed 
to  fill  the  informational  needs  of  the  personnel  ultimately  responsible  for 
using,  maintaining  or  updating  the  software.  The  amount  and  quality  of  the 
software  documentation  produced  are  usually  dependent  on  two  major  factors 
in  the  program  development  cycle--  the  length  of  time  allotted  for 
development  and  the  number  of  people  assigned  to  the  development  effort. 
Normally,  the  longer  the  duration  of  a  project  and  the  larger  the  software 
development  team,  the  greater  the  need  for  software  documentation.  Proper 
documentation  (1)  provides  a  means  to  efficiently  monitor  and  control  long¬ 
term  projects,  (2)  provides  an  understandable,  transferrable  method  of 
communication  between  the  project  team  members  and  future  users  or  program 
modifiers,  and  (3)  reduces  the  time  consuming,  labor  intensive  process  of 
duplicating  the  development  effort  if  key  project  members  leave  or  the 


program  is  moved  to  another  site  and/or  the  programs  require  modification  or 
updating.  If  the  software  documentation  is  adequate,  only  minimal  problems 
arise  wh^n]  it  is  modified  or  transferred  to  new  locations.  If  the  formal 
documentation  is  inadequate,  or  nonexistent,  the  new  user  is  faced  with  the 
formidable  and  tedious  process  of  manually  flow  charting  the  program  to 
determine  program  logic  and  defining  the  program  variables  prior  to 
proceeding  with  any  modifications.  One  solution  to  this  approach  is  to 
develop  a  computer  aid  with  the  capability  to  accurately  and  expeditiously 
decipher  the  program  logic  and  automatically  provide  a  flow  chart. 


BACKGROUND 


The  Chief  of  Naval  Education  and  Training  (CNET)  tasked  the  Training 
Analysis  and  Evaluation  Group  (TAEG)  to  document  selected  software 
components  of  the  AOP  portion  of  the  Foreign  Military  Sales  (FMS)  financial 
management  system.  The  specific  objectives  of  the  tasking  were  to: 

•  describe  the  structure  of  the  FMS  system  and  its  elements,  along 
with  the  logic  for  completing  summary  billing 

•  provide  an  operator's  guide  that  would  improve  understanding  of 
the  program  logic  and  procedures  necessary  to  use  the  system 

•  document  the  specific  system  programming  details  of  the  FMS  FY  80 
costing/billing  programs. 

At  the  outset  of  this  effort,  little  formal  documentation  was  available 
other  than  comments  contained  in  the  program  software  concerning  program 
structure  and  use.  In  order  to  understand  how  the  programs  worked,  it  was 
necessary  to  determine  program  logic  and  define  software  variables  and  their 
interrelationships.  The  need  to  accomplish  this  formidable  labor  intensive 
effort  as  the  necessary  prelude  to  achieving  the  FMS  study  objectives  served 
as  the  impetus  for  automating  this  process. 
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PURPOSE 

This  document  describes  a  computer  aid  designed  to  decipher  and 
automatically  flow  chart  computer  program  logic  and  provides  the  computer 
code  necessary  for  this  process.  This  computer  aid  reduces  the  labor 
intensive  manual  process  of  producing  a  flow  chart  for  an  undocumented  or 
inadequately  documented  program.  This  TAEG  developed  program  (hereafter 
called  BASCHART)  automatically  produces  an  annotated  flow  chart  for  any 
program  that  uses  WANG  (MVP)  BASIC-2  programming  language. 

ORGANIZATION  OF  THIS  REPORT 

In  addition  to  this  introduction,  one  other  section  and  three 
appendices  are  provided.  Section  II  describes  the  BASCHART  flow  charting 
program  and  its  development  and  provides  a  detailed  user's  guide.  Appendix 
A  provides  a  system  diagram  of  the  BASCHART  program  showing  the 
interrelationships  between  the  subsystems  contained  in  the  program.  It  also 
contains  a  listing  of  the  subroutines  with  brief  descriptions  of  their 
purpose.  Appendix  B  contains  definitions  of  the  BASCHART  alphanumeric 
variables.  Appendix  C  provides  the  WANG  BASIC-2  computer  code  for  the  flow 
charting  program. 
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SECTION  II 

SYSTEM  DESCRIPTION  AND  USER'S  6UIDE 

This  section  briefly  sumnarizes  the  development  of  the  BASCHART 
program,  describes  the  hardware  requirements,  and  contains  a  user's  guide 
for  the  BASCHART. 

DEVELOPMENT  HISTORY 

The  WANG  MVP  flow  charting  program  is  an  extensive  modification  of  an 
existing  program  developed  at  the  University  of  Central  Florida,  Orlando. 

In  the  conversion,  many  of  the  unique  WANG  functions  were  implemented  to 
provide  as  complete  a  documentation  system  as  possible.  The  original 
program,  operated  in  a  batch  environment,  was  designed  to  work  in  Harris 
BASIC  on  relatively  short  and  noncomplex  programs.  BASCHART  is  an  online 
interactive  program  that  can  be  used  on  any  WANG  BASIC-2  program  regardless 
of  program  length  or  programmers'  writing  technique.  The  program  can  also 
isolate  a  given  segment  of  a  program  and  flow  chart  only  that  portion.  The 
user  is  provided  substantial  flexibility  because  BASCHART  has  been  modified 
to  interact  with  the  WANG  operating  system  and  disk  catalog  structure. 

HARDWARE  REQUIREMENTS 

BASCHART  is  written  using  WANG  BASIC-2  and  can  be  operated  on  a  WANG 
2200  MVP  within  a  56K  partition.  The  user  should  have  a  line  printer 
available  and  must  supply  the  BASCHART  program  with  the  program  to  be  flow 
charted  from  either  a  floppy  disk  or  a  fixed  disk  storage  medium. 

BASCHART  OPERATING  PROCEDURES 

It  is  assumed  that  the  required  computer  hardware  (CRT,  DISK  DRIVE,  and 
LINE  PRINTER)  is  available  to  the  user  intending  to  use  the  BASCHART 
program.  Initializing  the  equipment  is  an  extremely  easy  task.  However, 
because  of  the  many  possible  equipment  configurations,  it  is  desirable  that 
personnel  knowledgeable  in  WANG  equipment  set  up  the  system  for  subsequent 
use.  After  loading  and  starting  the  execution  of  program  BASCHART,  the 
following  screen  will  appear. 
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This  program  is  designed  to  create  a  logic  flow  chart  of  any  active 
program  on  disk  in  the  BASIC-2  language. 

Is  it  your  intention  to  run  the  program  'BASCHART'?  (Y/N) 
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Entering  an  N  will  return  the  user  to  the  WANG  operating  system.  If 
the  user  enters  a  Y,  the  following  screen  will  be  displayed: 

*****  DISK  ADDRESS  YOUR  PROGRAM  ***** 

DISK  ADDRESSES  AVAILABLE:  325  825  365  DIO  Dll  D13 
ENTER  DISK  ADDRESS 


The  user  must  now  enter  the  disk  address  where  the  program  to  be  flow¬ 
charted  is  located.  Entering  a  valid  disk  address  will  enable  the  program 
to  scan  the  specified  disk  directory  and  automatically  present  the  following 
display: 


DISK  Dll  CATALOG  OF  PROGRAMS 


10. 

20. 

30. 

40. 

1. 

11. 

21. 

31. 

41. 

2. 

12. 

22. 

32. 

42. 

3. 

13. 

23. 

33. 

43. 

4. 

14. 

24. 

34. 

44. 

5. 

15. 

25. 

35. 

45. 

6. 

16. 

26. 

36. 

46. 

7. 

17. 

27. 

37. 

47.  BASCHART 

8. 

18. 

28. 

38. 

48.  BASICout 

9. 

19. 

29. 

39. 

49.  BASchart 

FN  '4  = 

END  PROGRAM  /  FN 

'5  =  SEARCH 

/  FN  '6  = 

BASCHART  PROGRAM 

510  TOTAL  PROGRAMS  PRESS  RTN/FN? 


This  display  lists  the  programs  contained  at  the  disk  address 
previously  specified.  This  initial  display  contains  the  first  49  programs, 
after  that  the  programs  are  presented  in  groups  of  50.  Pressing  RETURN  will 
cause  the  next  group  of  50  programs  to  appear.  Repeating  this  process  will 
present  succeeding  groups  of  programs  until  all  the  programs  available  at 
that  disk  address  have  been  displayed.  The  total  number  of  programs 
available  on  the  disk  is  continuously  displayed  at  the  bottom  of  the  screen. 


6 


Technical  Note  3-82 


Selecting  FN  '4  =  END  PROGRAM  will  return  the  user  to  the  WANG 
operating  system. 

If  the  user  does  not  know  the  entire  name  of  the  program  or  its  correct 
spelling,  use  the  search  capability  of  BASCHART,  special  function  Key  '5. 
Selecting  FN  '5  =  SEARCH  will  cause  the  screen  to  display  the  following: 


*****  disk  Dll  CATALOG  OF  PROGRAMS  ***** 


10. 

20. 

30. 

40. 

1. 

11. 

21. 

31. 

41. 

2. 

12. 

22. 

32. 

42. 

3. 

13. 

23. 

33. 

43. 

4. 

14. 

24. 

34. 

44. 

5. 

15. 

25. 

35. 

45. 

6. 

16. 

26. 

36. 

46. 

7. 

17. 

27. 

37. 

47.  BASCHART 

8. 

18. 

28. 

38. 

48.  BASICout 

9. 

19. 

29. 

39. 

49.  BASchart 

INPUT  CHARACTER 

STRING:  BAS 

The  user  is  required  to  input  a  character  string  that  approximates  the 
program  name.  Using  this  character  string,  a  search  of  the  existing  catalog 
index  will  be  made  and  all  the  programs  contained  on  the  disk  with  that 
character  string  will  be  displayed  as  indicated  below: 


*****  DISK  Dll  SEARCH  ***** 

47.  BASCHART 

48.  BASICout 

49.  BASchart 

Three  files  were  searched  out  with  string  BAS. 

FN  '4  =  END  PROGRAM  /  FN  '5  =  SEARCH  /  FN  '6  =  BASCHART  PROGRAM 
510  TOTAL  PROGRAMS  PRESS  RTN/FN? 
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The  user  should  now  be  able  to  identify  the  specific  proqram  to  be 
flow  charted. 

Once  the  user  has  identified  the  desired  proqram  (either  by  enterinq 
program  name  or  by  usinq  the  search  function,  FN  '5)  and  located  the  proqram 
number,  special  function  key  '6,  FN  '6  =  BASCHART  PROGRAM,  is  used  to 
initiate  the  subroutine  by  which  the  number  of  the  proqram  (in  this  instance 
47)  to  be  flow  charted  is  entered. 

Pressing  FN  '6  will  cause  one  of  the  following  screens  to  be 
displayed.  If  the  user  has  previously  employed  the  search  function  (FN  '5), 
the  following  will  appear: 


*****  DISK  Dll  SEARCH  ***** 


47.  BASCHART 

48.  BASICout 

49.  BASchart 


Three  files  were  searched  out  with  string  BAS. 
WHAT  IS  THE  NUMBER  OF  THE  PROGRAM? 


If  the  user  knew  the  program  name  and  consequently  pressed  FN  '6,  the 
following  will  be  displayed: 


***** 

DISK 

Dll  CATALOG  OF  PROGRAMS 
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1. 

11. 

21. 
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2. 

12. 

22. 

32. 

42. 

3. 

13. 

23. 

33. 

43. 

4. 

14. 

24. 

34. 

44. 

5. 

15. 

25. 

35. 

45. 

6. 

16. 

26. 

36. 

46. 

7. 

17. 

27. 

37. 

47. 

BASCHART 

8. 

18. 

28. 

38. 

48. 

BASICout 

9. 

19. 

29. 

39. 

49. 

BASchart 

WHAT  IS 

THE  NUMBER  OF 

THE  PROGRAM? _ 
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Once  the  user  enters  a  valid  program  number  by  either  alternative,  he 
has  identified  the  specific  program  to  be  flow  charted  utilizing  the 
BASCHART  program. 

After  entry  of  a  valid  program  number,  a  sequence  of  questions  is  asked 
pertaining  to  printer  address,  program  line  number  (starting  and  stopping 
for  the  flow  chart),  and  program  subroutine  structure.  The  first  screen 
requests  a  valid  printer  address. 


PRINTER  ADDRESSES  AVAILABLE:  204,  215,  216,  211,  005 


SELECT  PRINTER  ADDRESS: 


Entering  the  desired  printer  address  will  cause  the  following  screen  to 
appear: 


PRINTER  ADDRESSES  AVAILABLE:  204,  215,  216,  211,  005 
SELECT  PRINTER  ADDRESS:  215 

DO  YOU  WANT  A  HARD  COPY  PRINTOUT  OF  YOUR  ENTIRE  PROGRAM?  (Y/N) 


If  a  Y  is  entered,  the  entire  program  will  be  flow  charted  and  printed. 
If  an  N  is  entered,  which  indicates  a  desire  to  print  only  a  portion  of  the 
flow  charted  program,  the  following  display  will  appear: 


At  what  line  No.  do  you  want  a  hard  copy  print  to  start? 
If  first  line  No.  of  program,  type  in  '0000'==,^_ _ 


At  what  line  No.  do  you  want  the  hard  copy  print  to  end? 
If  last  line  No.  of  program,  type  in  '9999,=aJ^- 


(Processing  is  done  from  the  start  regardless  of  where  your  line  No.  begins) 
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The  user  must  now  enter  the  starting  and  stopping  line  numbers  of  the 
portion  of  the  program  to  be  flow  charted. 

NOTE:  If  printer  address  005  (CRT)  is  selected,  questions  pertaining 
to  starting  and  ending  line  numbers  will  not  appear.  The  entire  flow  charted 
program  will  appear  on  the  screen  in  a  continuous  rollup  display. 

Once  the  program  line  numbers  are  entered,  the  following  display, 
requesting  the  inclusion  of  remarks  and  image  statements,  appears: 


DO  YOU  WISH  TO  INCLUDE  THE  REMARKS  AND  IMAGE  STATEMENTS  IN  THE  FLOW  CHART? 

(Y/N) 


A  Y  response  will  include  all  program  remarks  and  image  statements  in 
the  flow  chart.  An  N  response  will  exclude  all  statements  of  that  type  and 
results  in  a  flow  chart  containing  only  program  logic. 

Regardless  of  whicn  entry  is  made,  the  following  screen  will  appear: 


If  your  program  has  marked  subroutines,  are  all  of  them  after  the 
main  program? 


Y  =  Will  cause  the  oversized  heading,  'SUBROUTINES',  to  be  printed 
upon  encountering  the  first  marked  subroutine.  Everything  after 
this  is  assumed  by  the  program  to  be  subroutine  connected. 


N  =  Will  treat  all  subroutines  as  if  they  are  found  within  the  main 
program.  No  oversized  'SUBROUTINES'  heading  is  printed. 


SELECT  OPTION  (Y/N) 
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A  Y  response  will  cause  the  BASCHART  program  to  print  the  heading 
"SUBROUTINES"  when  it  encounters  the  first  subroutine  in  the  program  being 
flow  charted.  This  signifies  that  the  main  program  is  complete  and 
everything  that  follows  the  SUBROUTINE  heading  is,  in  fact,  a  subroutine. 
If  the  user  inserts  an  N,  no  heading  will  be  printed  and  the  BASCHART 
program  will  treat  the  subroutines  as  if  they  are  contained  in  the  main 
program. 

Finally,  a  list  of  all  the  user's  responses  is  presented  providing 
the  ability  to  re-input  the  data  if  erroneous  results  were  entered. 


Your  program  name  is  . 

Your  program  is  on  disk  address 

Your  program  will  be  flow  charted  on  .  215 

You  want  a  printout  of  the  entire  program  .  NO 

Starting  at  line  number  .  0 

Ending  at  line  number .  100 

You  want  remarks  &  image  statements  included  .  YES 

Your  marked  subroutines  follow  the  main  program...  YES 

Key  return  to  continue,  any  other  key  to  re-input  data  ===►-  ? 


BASCHART 

Dll 


After  the  user  enters  the  desired  response,  BASCHART  will  proceed  to 
flow  chart  the  requested  program.  If  a  portion  of  a  program  is  to  be 
flow  charted  on  a  printer,  and  that  portion  does  not  begin  at  zero,  the 
screen  will  display  the  flow  chart  of  the  program  beginning  at  the  first  line 
number.  The  reason  processing  is  done  from  the  first  Line  Number, 
regardless  of  where  the  user  would  like  the  flow  chart  to  begin,  is  simply  to 
know  if  printing  is  started  in  a  loop  or  branching  sequence.  When  the 
starting  Line  Number  to  be  printed  is  encountered,  the  screen  displays  the 
status,  while  flow  charting  is  done  at  the  printer. 
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During  t^e  flow  charting  p^v-i.-ss,  '  "<•  f-.  Hln.oP  r  program  will  keep  the 

user  informed  -s  to  status  by  aispi  ay  i  -n  i  i  owing  screen: 


<<<<<<<<<<<<< 


»>>»>»»»» 


0190  IF  ij7S  =  "o; 


l.N  f’K  1  h r  HtlX  <  03 ) 


now  at  sector  #  36085 

Ending  sector  #  3fc?i,8 


.■!:ri>rred  statements  in  sector:  1 
•••  try  of  processing  completed:  2% 


NOW  FORMING  A  1  LOW  r  FAti  HART  ON  PRINTER  215 


I  remarks  include:)] 


OPERATOR  NOTE:  PROCESSING  I  f-:F  VARIES  WITH  EACH  PROGRAM, 

THE  AVERAGE  IS  10  MINUTES  FOR  EVERY  30  SECTORS. 


The  status  screen  displays  the  line  that  is  currently  being  flow  charted, 
the  ending  sector,  the  sector  oe:nq  flow  charted,  and  the  percentage  of 
processing  completed.  Once  finished,  ;.ce  program  returns  to  query  the  user 
as  to  any  more  flow  chart  requirements  at  this  time. 

BASCHART  PROGRAM  FLOW  CHART 

This  subsection  contains  :n  -  x.vnn  i>-  of  -.he  automated  flow  charting 

output  produced  by  the  BASCoART  program.  Program  comments  are  supplied  by 
BASCHART  during  the  processing  and  ; hr  ono  of  an  entire  printout.  The 
comments  can  range  from  remarks  about,  the  programming  technique  to  remarks 
about  a  command  or  commands  that,  no/;.!  not  b<>  translated  properly  from 
hexidecimal  or  exceeded  the  parameter.,  or  me  BASCHART  program. 
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Flow  chart  of  program  BASCHART 

///////////////////////////////////////////////////////////////////////////////////////// 

I 

( - ) 

(  START  ) 

( - ) 


REM  'BASCHART'  makes  a  flowchart  of  any  given  program 
REM  !  (  Charles  C.  Johnson  )  TAEG  -  U.S.  NAVY  Software 
REM  N.T.C  Orlando,  FI. 

REM  %  dimensioned  for  sector  reading 


PROCESS 


COM  Z1 

DIM  Z$ (256)4 , Q3$ (256) 2 , Q2$ (256) 2 ,Q1$2 , Q0$2 , X$ (256) ,T$8 


REM  %  dimensioned  for  the  statement  conversion 

» 


.0120 


PROCESS 


OIM  Q7$ (123)2,06$! 24 


REM  %  dimensioned  for  sorting  +  statement  assignment 

t 


.0130 


PROCESS 


OIM  02(256) ,W$(256)2,L$(256)2,A$124,Ai$124 
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t 

l 

REM 
% 

% 

% 


. 0170 

PROCESS 


:  0170 

SELECT  PRINT  005(80) 

1 

• 

V 

t 

• 

1 

1 

• 

1 

• 

===/  0170 

/  - 

/ 

(  PRINTING  ( 

( 

* _ 

* 

*_ _ 

_ * 

) - 

- ) 

/ 

/ 

/  PRINT 

/  HEX(0F);HEX(03) 

=/ 

t 

V 


I 

I 

REM  %  dimensioning  for  main  program 
0180 


DIM  A2$l 24, B2$l 24 , C2$l 24 , D2$l 24 , F$1 24 , F2$l 24 , K2$l 24 , L3$l 24 , S9$l 24 
DIM  E$10,N$5,Ul$3 

DIM  Ll$ (50)124, L2$ (50) 124 
OIM  F0(30),V(30) 

G1=0. . . 

V 


PROCESS 


0180 

0180 

0180 

0180 

0180 


NOW  FORMING  A  FLOW-CHART  OF 


ON  PRINTER 
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/*0190 

/  * 

/  * 

/  IF  *N2=0000 
/  THEN  * 

/  C  YES  3  /===============/ 

*#  J  ^  PRINT  <^AT(6, 33); "Thinking 

I  * 

[NO] 

f 

V 

I 

I 

I 

f 

• 

/*0190 

/  * 

/  * 

/  IF  *D7$="005" 

/  THEN  * 

*  /  [YE5]  /=============**/ 

*  /=========]  /  / 

*  /  (  PRINT  (  HEX(03) 

*  '  *  * 

*/  ============== _ 

i  ~~  '  “ 

[NO] 

I 

V 


/*0I90 
/  * 

/  * 

/  IF  *07$ ="21 5" 

/  THEN  $  OPEN  /215 
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• 

/*0190 

/  * 

/  * 

/  IF  *D7$="216" 

/  THEN  $  OPEN  /216 

*  / 

*  / 

*  / 

*  / 

*/ 

V 
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PROCESS 


S9$=HEX(20) 


/*02QQ 

/  * 

/  * 

/  IF  *07$ ="005"  OR  N2[ ]QOQO 
/  THEN  D8$s "005" 

*  / 

*  / 

*  / 

*  / 

V 


***********  Q2Q0 
*  ELSE  *  ====== =] _ 

***********  . 


PROCESS 


08$=07$ 


PROCESS 


.0200 


SELECT  PRINT  [D8$]  (130) 


i 
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APPENDIX  A 

SYSTEM  DIAGRAM  OF  BASCHART  PROGRAM 
AND 

8ASCHART  SUBROUTINE  LISTING 
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Figure  A-l.  Interrelationship  of  BASCHART  Subroutines 
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BASCHART  SUBROUTINE  LISTING 
Subroutine  Line  Purpose 

'4  3680  Print  direction  lines  branching  horizontally  in  and 

out  of  the  flow  of  logic 

'8  3650  Print  (down)  direction  lines  with  arrows,  prior  to 

printing  a  new  sequence  in  the  flow  chart 

*  '10  1670  Search  new  command  string  for  (0N..G0SUB, 

ON.. GOTO,  FOR.. NEXT,  REM,  GOTO,  GOSUB), 

AND  send  to  appropriate  subroutine 

*  '15  1480  Search  command  string  for  (REM,  %), 

separate  the  line  No.  from  the  command, 
in  modular  phase  check  for  (FOR.. NEXT) 

'19  3800  Modular  print  routine  or  comment  on 

(IF.. THEN)  or  (FOR.. NEXT)  statement 

*  '20  1830  Search  new  command  string  for  (IF.. THEN,  PRINT,  INPUT, 

STOP,  END,  LOAD,  RETURN)  AND  send  to  appropriate 
subroutine 

'30  2420  Print  (FOR  symbol)  in  a  (FOR.. NEXT) 

Loop,  branch  out  for  start  of  loop 

•35  2520  Print  (NEXT  symbol)  in  a  (FOR.. NEXT) 

Loop,  branch  UL  for  end  of  loop 

•40  2620  Print  routine  for  (ON.. GOTO,  ON.. GOSUB) 

'45  2850  Print  (GOTO  symbol) 

'50  2920  Print  (STOP,  END,  LOAD  symbols) 

'60  2120  Print  routine  for  (IF.. THEN)  branching  sequence 

and  symbol 

'65  2980  Print  routine  for  ELSE,  ERROR) 

Loop  branching  sequence,  begin  Loop 

'66  3960  Print  routine  for  (ELSE,  ERROR) 

Loop  branching  sequence,  terminate  Loop 

*0ne  of  three  main  directional  subroutines  that 
decide,  based  on  the  present  command  string,  what 
print  subroutine  to  call  up  and  process. 
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BASCHART  SUBROUTINE  LISTING  (continued) 

Subroutine  Line  Purpose 

‘75  3040  Print  REMARKS  from  program  being  flow  charted 

'80  3550  Print  routine  for  (data  process)  symbol, 

unidentified  commands  default  here 

•81  3080  Print  routine  to  end  (data  process)  symbol 

'82  3860  Print  routine  for  (PRINT  symbol) 

'83  3940  Print  routine  to  end  (PRINT  symbol) 

'85  3120  Print  (RETURN  symbol)  and/or  comment  on,  no 

(STOP)  or  (END)  encountered  prior  to  this 
subroutine 

'90  3180  Print  flow  chart  (down)  direction  lines  or  straight 

or  in  branched,  nested  Loops 

'91  3230  Print  comment  on  Instruction  number  out  of  order 

'92  3280  Print  comment  on  Instruction  number 

exceeding  the  program  parameters 

'93  3320  Print  routine  for  Loop  flow  direction  arrow 

('f'  or  '^')  up  or  down 

'95  3370  Search  the  command  string  for  the  Operand, 

or  a  second  main  command  statement 

'96  3440  Print  comment  on  illegal  BASIC-2  Language 

statement  encountered 

'98  2020  Loop  nest  counter  for  the  (FOR.. NEXT) 

sequence,  check  count  is  within  parameters 

'99  3500  Print  comment  on  unmatched  Loop  complement 

encountered 

1100  1110  Search  New  command  string  for  the  First  and  Last 

statement  of  the  program  and  the  First  and  Last 
statement  of  a  marked  subroutine,  print  summation 
comments  at  end  of  program  run 
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BASCHART  ALPHANUMERIC  VARIABLES 
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BASCHART  ALPHANUMERIC  VARIABLES 

A$  holds  the  command  string,  after  isolating  from  the  disk  sector 
and  translating  from  hexcode  to  normal  text 

A1S  holds  the  current  command  string  line  number 

A2$  holds  the  first  word  located  in  the  current  command  string 

B2S  holds  the  command  string,  other  than  the  first  isolated  word  of 
the  string 

C$  holds  the  operator  input  * Y *  or  * N 1  on  the  question  of  marked  sub¬ 
routines  following  the  main  program  body 

C2$  holds  the  operand  section  of  the  current  processed  command  string 

02$  holds  the  second  command  encountered  in  a  large  string  command 
(double  command  string)  (i.e.,  ELSE,  ERROR,  IF.. THEN) 

D7$  holds  the  printer  address 

D8$  holds  the  temporary  printer  address 

09$  holds  the  disk  address 

E$  holds  the  referenced  line  numbers  in  (ON.. GOTO),  (0N..G0SUB)  statements 

F$  holds  temporary  first  word  of  the  current  command  string 

F2$  holds  the  variable  and  starting  value  in  a  (FOR.. NEXT)  statement, 
to  use  later  in  identifying  the  end  of  loop 

K2$  holds  the  (FOR..)  or  (..NEXT)  command  in  the  modular  phase  of  the 
flow  chart  being  created 

L’5.  holds  the  (FOR..)  or  (..NEXT)  command  during  a  check  routine  to  match 
each  with  its  correct  complement 

N$  holds  the  present  statement  line  number 

22*  holds  the  locations  of  the  starting  line  numbered  statements,  for 
each  sector  of  the  program  being  processed 

Ql$  holds  the  location  of  the  end  of  sector  data  marker  (FD)  or  (FE)  for 
each  sector  of  the  program  being  processed 

06$  holds  the  first  byte  of  each  command  string  and,  if  needed,  the  trans¬ 
lated  ASCII  of  the  hexcoded  command  byte 

S9$  holds  a  blank  field,  used  in  translating  statements  during  the 
flow  charting  sequence  of  the  program 
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BASCHART  ALPHANUMERIC  VARIABLES  (continued) 

T$  holds  the  name  of  the  program  being  flow  charted 

Tl$  holds  the  temporary  value  of  ' S9S * ,  used  as  a  flag  when  encountered  to 
indicate  some  operation  was  completed 

T2$  holds  the  entire  (intact)  command  string,  while  elsewhere  it  is 
being  broken  down  and  processed  during  the  flow  chart  sequence 

U1S  holds  the  location  in  a  command  string,  while  being  read  from  the 
sector,  of  the  actual  end  of  the  statement,  not  counting  the 
(colon),  which  can  be  a  statement  separator 

Zl$  holds  the  operator  input  ' Y 1  or  ' N ’  on  the  question  of  including 
remarks  and  image  statements  in  the  flow  chart  output 


Technical  Note  3-82 


BASCHART  ALPHANUMERIC  ARRAY  VARIABLES 

L$(  )  holds  the  sorted  sector  location  of  each  beginning  string  command 

Ll$(  )  holds  the  stored,  nested  (FOR.. NEXT)  statement,  to  match  against 

each  equal  complement 

L2$(  )  holds  the  stored  line  number  of  each  nested,  starting 
(FOR.. NEXT)  statement 

Q2$(  )  holds  locations  of  each  start  of  numbered  statements  in 
each  sector,  read  by  the  program 

Q3$(  )  holds  locations  of  each  start  of  nonnumbered  statements 
in  each  sector,  read  by  the  program 

Q4$(  )  holds  the  ASCII  equivalent  of  a  hexcoded  command 

Q5$(  )  holds  the  hexcoded  commands  used  in  the  BASIC-2  Language 

Q7$(  )  holds  the  sector  position  of  each  mark,  and  later  each 
in  the  sector  currently  being  read 

W$(  )  holds  the  work  array  for  the  MAT  SORT  command 

X$(  )  holds  the  entire  sector  being  read  by  the  proqram 

Z$(  )  holds  the  temporary  location  of  statements  in  the  process  of 
isolating  string  commands,  later  it  holds  the  sorted  location,  in 
the  sector  being  read,  of  each  string  command  prior  to  its  being 
translated  from  hexcode  into  ASCII 
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PROGRAM  LISTING 

10  REM 

10/25/82  BASchart  PAGE  2 

PROGRAM  LISTING 


BASchart  -  start  program  for 

the  BASCHART  flowchart:  REM  I  [  Charles  C.  Johnson  ]  TAEG-U.S.  NAVY 
oftware  :  REM  N.T.C.  Orlando,  Florida 

20  REM  C$ (450)8  -  File  Names  from  the  Disk  Directory. 

40  rReEM  “  file  Status  in  hex. 

50  REM  % 


dimensioning 

60  COM  D9$3, T$8,D8$3,D7$3, Q4$ (123)10, Q5$ (123) 10, Zl$l ,C$1 ,N2 ,N3 
: DIM  N2$4 ,N3$4, Z2$l , Z3$3, Z4$3, Z5$3 ,A$3 
:DIM  N$8 , S$2 , S2$2 , Z$3 , Zl$l 

70  DIM  B$ (1 6) 16 , C$ (1 100) 8 , Cl$2 ,C2$ (1 100) 8 , L$ (1100) 2 , W$ (1 100) 2 :  REM  * _ 


:$PST  AT="BASCHART " 

80  C$()=ALL(FF) 

90  IF  A=1  THEN  230 
:IF  Zlal.  THEN  210 
100  PRINT  HEX(06) 

:FOR  Gal  TO  3 

:E=dl 

:F=36 

:H=0 

110  H=H+1 

: PRINT  HEX(0306) 

:E=E-1 

:F=F-4 

:PRINT  HEX(06);AT(E,F);B0X(H*2,H*8) 


:IF  E[]0  AND  F[]0  THEN  110 
:NEXT  G 

•.PRINT  HEX(03) 

120  %  BBBBBB  A  SSSSSS 

CCCCCC 

H 

H 

A 

RRRRRR  T 

TTTTTT 

130  %  B  B 

T 

A  A 

S 

c 

H 

H 

A  A 

R  R 

140  %  BBBBBB 

T 

A  A 

SSSSSS 

c 

HHHHHHH 

A 

A 

RRRRRR 

150  %  B  B 

T 

AAAAAAA 

S 

c 

H 

H 

AAAAAAA 

R  R 

160  %  B  B 

T 

A  A 

S 

c 

H 

H 

A 

A 

R  R 

170  %  BBBBBB 

T 

A  A 

SSSSSS 

cccccc 

H 

H 

A 

A 

R  R 

180  PRINT  AT (7,0) ; 

: PRINTUSING  120 
: PRINTUSING  130 
: PRINTUSING  140 
: PRINTUSING  150 
: PRINTUSING  160 
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: PRINTUSING  170 

190  PRINT  AT(17,10);"TMs  program  is  designed  to  create  a  logic  flowcha 
rt  of" 

:PRINT  AT(18,12);"any  active  program  on  disk  in  the  Basic-2  language. 

II 

200  Z1$=HEX(00) 

:PRINT  AT(22,7);"Is  it  your  intention  to  run  the  program  'BASCHART'  ? 

(Y/N)"; 

:KEYIN  Zl$ 

:IF  Z1$="N"  OR  Zl$="n"  THEN  G0SU8  '4 
: IF  Zl$[ ]"Y"  AND  Zl$[]"y"  THEN  200 
•.PRINT  HEX (03) 

210  A=1 
220  REM  % 


SELECT  DISK 


:G0SUB  '205 

230  DATA  LOAD  BA  T#1,(0)B$() 
lERRORPRINT  HEX(07) 

:GOTO  220 

240  %  ***************************************************************** 
********* 

250  %  *  Now  Loading  All  the  Active  Programs  on  M# 

* 

260  %  ****************************************************************** 
******** 

270  PRINT  HEX(0306) ; AT (8 ,0) } 

: PRINTUSING  240 
rPRINTUSING  250, D9$ 

: PRINTUSING  260 
:I=0 

280  S2$=STR(B$(1)  ,1,2) 

:S=VAL(STR(S2$  ,2,1) ) 

290  S$=ALL(FF) 

:L=0 

:L1=0 

:C1$=HEX(1080) 

300  PRINT  HEX(06) ; AT (18,25) {"LOADING  CATALOG"; 

310  REM  % 


LOAD  FILE  NAMES  INT 


0  C$0  =========. 

320  S$=ADDC  BIN(l) 

330  IF  S$]=S2$  THEN  420 
340  DATA  LOAD  BA  T#1,(S$)B$() 

350  PRINT  AT (18,45,5) ; AT (18,45) ;  S; 
:S=S-1 

360  FOR  J=1  TO  16 


28 
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370  IF  STR(B$(J),1,2)[]STR(C1$,1,2)  THEN  390 
380  L=L+1 

:C$(L)=STR(B$(J) ,9,8) 

390  NEXT  3 
400  GOTO  320 

410  REM  % 


========  SORT  FILE  NAMES 


Jl 


t 


420  FRINT  HEX(06) ; AT (18,25) ;"  Sorting  the  Catalog 
:IF  L=0  THEN  500 
:MAT  SORT  C$()  TOW$(),L$() 

430  MAT  MOVE  C$(),L$(1)  TO  C2$(l) 

: PRINT  HEX(0306) 

440  FOR  L2=l  TO  L 

445^PRINT  HEX(06); AT (0,20) ;"**♦**  Disk  ";D9$;"  Catalog  of  Programs 

450  IF  M00(L2,10)=0  THEN  Ll=U+15 
460  IF  LI  [66  THEN  480 
:L1=0 

470  GOSUB  810 

480  PRINT  HEX(06) ;  AT(M0D(L2,l0)+3,Ll) ;  L2;TAB(Ll+4) :C2$(L2) 

490  NEXT  L2 
500  GOSUB  810 
:L1=0 

:GOTO  440 


540  REM  % 


S  =========  DEFFN'5  /  SEARCH  R 

OUTINE  ========== 

550  OEFFN'5 

560  PRINT  AT (22,0,79) 

rii  570  PRINT  AT(22,20); "Input  character  string:": 

.  :LINPUT-N$ 

580  IF  N$[ ]"  "  THEN  600 

590  PRINT  AT (22,0,79) ; AT (22,0) ; 

:  RE  TURN 

m  .  600  MAT  SEARCH  C2$(),=N$  TO  L$() 

610  IF  L$(1)]HEX(0000)  THEN  640 
\  620  PRINT  AT (22,52) ; "NOT  ON  FILE" 

630  GOTO  570 

640  J,I1=1 


:FOR  K=0  TO  21 
: PRINT  AT (K, 0,80) 

29 


***** 
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:NEXT  K 
:K=1 

650  IF  L$(J)=HEX(0000)  THEN  780 

655  PRINT  HEX(06) ; AT (0,20) ; "**♦**  Disk  ";D9$;n  Search  of  Programs  ***** 

tf 

660  X=VAL(L$ (J) ,2) 

670  Y=INT( (X-l)/8)+l 
680  IF  Yl=Y  THEN  715 
690  I=MOD( J1 ,10)+1 
700  IF  I[  ]1  THEN  720 
710  11=11+15 
:J1  =1 
:  I  =2 

: I F  II ]70  THEN  11=0 
:GOTO  720 

715  IF  M0D(J,45)[]0  THEN  760 

:PRINT  AT(18,12-LEN(N$)) ;K-1 ; "Files  were  searched  out  having  ";n$;"  ( 
more  on  next  screen)" 

:G0SUB  810 
:I=2 

:J1,I1=1 
:G0T0  760 

720  IF  M00(J,45)[]0  THEN  730 

:PRINT  AT(18,12-LEN(N$)) ;K-1 ; "Files  were  searched  out  having  ";N$;"  ( 
more  on  next  screen)" 

: GO SUB  810 
:I=2 

:J1,I1=1 

730  PRINT  AT(I+3, 11+4) ;B0X(1 ,9) ; AT(I+3,I1) ; Y; AT(I+3,Il+5) ;C2$(Y) 

:K=K+1 
740  Y1=Y 
750  J1=J1+1 
760  0=J+1 

770  IF  J[=L  THEN  650 

780  PRINT  AT(18,20-LEN(N$));K-1 ; "Files  were  searched  out  with  string  ";N 
$* 

: GO SUB  810 
790  N$=ALL(20) 

-.GOTO  570 

800  REM  % 


load  routine 


810  PRINT  HEX(06) ; AT(20,0,79) ; AT(20,2);"[  FN'4  =  End  /  Fn'5  =  Search  /  F 
N'6  =  Program  you  want  to  run  on  BAk>iART  ]" 

•.PRINT  HEX(06);AT(22,0,79);AT(22,17);L;"  Total  Programs  ";HEX(06); 
: INPUT  "  PRESS  [RTN/FN]  ",A$ 

820  IF  A$=HEX(0D2020)  OR  A$="  "  OR  A$="[R]"  THEN  830 
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:A$="[R]" 

:GOTO  810 

830  PRINT  HEX(03) 
:RETURN 

840  REM  % 


=========  DEFFN' 205  /  SELECT 

DISK  SUBROUTINE  ========== 

850  DEFFN  *205 

:PRINT  HEX(03) ; AT(12,11) ;"Disk  Addresses  available:  325  B25  365  DIO 
Dll  012  D13  B20";  AT (13,38) ;"D14  D15  D30  D31  D32  D33  D34  D35";  AT(12,8 
);B0X(2,61);AT(9,9);"***»  Disk  address  of  the  program  you  want  to  Flo 
wchart  ****" 

860  PRINT  AT (18 ,24); "Select  Disk  Address: 

:D9$="  " 

:LINPUT-09$ 

;PRINT  HEX(06) 

:IF  09$="  "  THEN  GO  SUB  *4 

:IF  POS( "3BD"=STR (09$ ,  ,1)  )«P0S( "123456" =STR (09$, 2,1)  )«P0S("012345"= 
STR(D9$ ,3,1) )=0  THEN  860 
•.SELECT  #1[D9$] 

:  RETURN 

870  REM  * 


DEFFN'  UR 


N  START  ========== 

880  DEFFN* 4 
:$PSTAT="  " 

:C0M  CLEAR 
•.RETURN  CLEAR  ALL 

:LOAD  T  "START" 

:ERRORPRINT  HEX(03);AT(8,19);"N0T  ABLE  TO  LOAD  START" 
:END 

890  REM  % 


DEFFN' 6  /  LOAD  BASCH 


ART  ========== 

900  DEFFN' 6 

910  PRINT  AT (22, 0,79) 

920  Z=0 

: PRINT  AT(22,10) ; " 

II 

•.PRINT  AT(22,16)  ;”WHAT  IS  THE  NUMBER  OF  THE  PROGRAM: 

31 
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:LINPUTZ$ 

:1F  Z$="  "  THEN  RETURN 
•.CONVERT  Z$  TO  Z 
rERRORGOTO  920 
930  Z1$=HEX(00) 

:IF  Z]L  OR  Z[1  THEN  920 
.•PRINT  AT (22, 14);" 

II 


: PRINT  AT (22,16) ;"IS  ";C2$(Z);M  THE  PROGRAM  YOU  WANT  ?  (Y/N) 

:KEYIN  Zl$ 

940  IF  Z1$="N"  OR  Zl$="n"  THEN  920 
:IF  Zl$[  ]"Y"  AND  Zl$nMy"  THEN  930 
950  DIM  08$ (5)3  C8$2 

:PRINT  HEX(03);AT(9,13); "Printer  Address  available:  204  215  216  211 
005" 


:PRINT  AT(12,21) ;"Select  Printer  Address: 

:08$="  " 

:LlNPUT-08$ 

960  STR(08$()  ,1)=  "204215216211005" 

-.MAT  SEARCH  D8$(),=D8$  TO  C8$  STEP  3 
:IF  C8$=HEX(0000)  THEN  950 

970  DATA  "AND", "RUN", "CLEAR", "RENUMBER", "TAPE", "OR'V'DISK", "TEMP", "XOR", 
"KEYIN’’,  "COPY" 

•.DATA  "DSKIP", "LIMITS" , "LIST", "SAVE", "CONTINUE", "NEXT", "IF", "GOTO”, "G 
OSUB”, "RETURN”, "FOR" 


:DATA  "DATA", "READ", "LET", "LINPUT", "END", "DIM", "STOP", "TRACE", "ON", "L 
S”, ” ALL ",'t  LOSE" 

9 80  DAT A  "DAC" , " DSC" , "SUB" , "ROT ATE" , "PACK " ," UNPACK " , "BOOL ” , ” ADD” , ” INI T” , 
"ERROR”, "ERR” 

•.DATA  "VERIFY", "DBACK SPACE", "BEG", "OFF", "Cl", "CO", "D”, "R", "£PEN", "LIN 
PUT",  "ELSE” 

990  DATA  "ROUND", "SPACE", "PRINTUSING", "CONVERT ", "MOVE ", "PLOT", "PRINT", "R 
EM", "COM", "RESTORE" 

•.DATA  "SELECT",  "LOAD”,  "MAT”,  "PLOT  ",  "REWIND",  "BACKSPACE",  "SKIP",  "SCRAT 
CH",”DA","DC" 


:DATA  "BA", "THEN", "TO", "STEP", ”G", "P", 
N(","LEN(" 

1000  DATA  "VA L ( " , " NUM ( ", "POS (","#"," ATN (" , 


"BT " , "STR ( " , "HEX ( " , "RE " , , 
"SIN  ( " ,  "COS  ( " ,  ”  PRC  ( " , "  1M  ( " , 


"81 

"DE 


FFN" 


:DATA  "FN", 
R(","RND( ", 
:DATA  "TAN( 
N(",'MOD(", 
1010  REM 
1020  DATA  "8A", 
:DATA  "89", 
1030  DATA  "97", 
•.DATA  "E3" , 
1040  DATA  "EC", 
1050  DATA  "F2", 
:DATA  "A5", 
1060  DATA  "81", 


"#PI",  "PBS( ",  "COS(  ”,  "EXP(  ",  "INT( ",  "LOG(  ",  "SIN( ",  "SGN( ",  "SQ 
"TAN(  ” 

”,  "FIX( ",  "HEX",  "$", "LGT(", "HEX( ", " AT ( " , "HEXOF ( " , "MAX( ", "MI 
"VER ( " 


"82" 

"86" 

"98" 

"ED" 

"0C" 

«F4" 

.’Ait’ 

"82" 


,"81 ","83" 
,"80",  "85” 
,"91 ","99" 
,"EE ","EF  " 
,  "8B", "B3" 
,"F3","A7" 
"A8"  "A4" 
"BO'Y'OB” 


"8F ”,"8B","8E" 
,"84","9D","9F " 
,"96", "93", "95" 
,"E9","E2","E6" 
,  "BA",  "B5",  "88" 
,"AE","AD","AF" 
,  "A9","AB","AA" 
, "09", "DA", "03" 


"8D" 

"8C" 

"88" 

CD 

"9C" 

i’9A" 

"98" 

"9E" 

"90” 

"94*i 

"EO” 

•IQ  II 

”E7” 

"E8" 

"E4" 

"EB" 

"87" 

"86" 

"84" 

"FO" 

"AO" 

"A2" 

"A6" 

"A3" 

it  ac" 

"BD" 

"BF  " 

CD 

m 

"D2" 

"D6" 

"08" 

,"DE" 
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:DATA  ”05", "DC", "DO", "DF", 
1070  DATA  'CO",  "CC",  "Cl ",  "C3", 
:OATA  "CA", "CF", "92", "E5", 
:DATA  "F9","F1" 

1080  REM 

1090  RESTORE  LINE  970 
-.FOR  1=1  TO  123 
:RE AD  Q4$(I) 

:NEXT  I 

1100  RESTORE  LINE  1020 
:FOR  1=1  TO  123 
:READ  Q5$(I) 

:NEXT  I 
1110  Z2$="  " 

:D7$=D8$ 


" D7", "DA", "DO", "01", "CB", "CD", "CE " 
"CA " , "C5 " , "C6" , "C7" , "C8" , "C2" , "C9" 
" EA " , "B9 " , " FC" , " F5 " , " F6" , " F7 " , " F8" 


:N2=0000 


:N3=9999 

:IF  08$='C05"  THEN  1170 
:Z2$=HEX(0D) 

1120  PRINT  AT(15,6);"Do  you  want  a  hard  copy  print-out  of  your  entire  pro 
gram  ?  (Y/N)"; 

:KEYIN  Z2$ 

:IF  Z2$="N"  OR  Z2$="n"  THEN  1130 
:IF  Z2$[  ]"Y"  AND  Z2$[]"y"  T*€N  1120 
:G0T0  1170 


1130  PRINT  HEX(03) ;AT(24, 3); "(Processing  is  done  from  the  start  regardle 
ss  where  your  line  No.  begins)" 

1140  PRINT  AT(10,10) ;B0X(2,58) ;AT(10,11) ;"At  what  line  No.  do  you  want  a 
hard  copy  print  to  start  ?  " 

•.PRINT  AT(ll,ll);"If  first  line  No.  of  program,  type  in  '0000'==]"; 
:LINPUT-N2$ 

‘.PRINT  AT (5, 2, 78) 

: CONVERT  N2$  TO  N2 

:ERRORPRINT  AT (5, 32) PLEASE  TRY  AGAIN." 

:G0T0  1140 


1150  PRINT  AT (14, 10) ;B0X(2,58) ; AT (14,11) ; "At  what  line  No.  do  you  want  th 
e  hard  copy  print  to  end  ?  " 

:PRINT  AT(15,11) ;"If  last  line  No.  of  program,  type  in  '9999'==]"‘, 
:LINPUT-N3$ 

‘.PRINT  AT (5, 2, 78) 

: CON VERT  N3$  TO  N3 

:ERRORPRINT  AT (5, 32) PLEASE  TRY  AGAIN." 

:G0T0  1150 


1160  IF  N3]N2  THEN  1170 

•.PRINT  AT (5 , 20) Sorry ,  your  line  No.'s  are  out  of  order." 
:G0T0  1140 

1170  Z1$=HEX(0D) 

:PRINT  HEX(03);AT(5,0);B0X(2,78) 
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:PRINT  AT(5,2);"Do  you  wish  to  include  the  remarks  and  image  statemen 
ts  in  the  flow-chart?" 

: PRINT  AT (6,36) (Y/N)"; 

:KEYIN  Zl$ 

:IF  Zl$="y"  THEN  Z1$="Y" 

:IF  Zl$="n"  THEN  Z1$="N" 

:IF  Z1$="N"  OR  Z1$="Y"  THEN  1180 
:G0T0  1170 

1180  C$=HEX(00) 

:PRINT  AT(10,0);80X(10,79);AT(10,l);"If  your  program  has  marked  subro 
utines,are  all  of  them  after  the  main  program';" 

1182  PRINT  HEX(06) ; AT (13,5); "Y  =]  Will  cause  the  oversized  heading,  'SUBR 
OUT1NES* ,  to  be  printed"; AT (14, 10); "upon  encountering  the  first  marke 
d  subroutine.  Everthing  after";  AT(15, 10); "this  is  assumed  by  the  prog 
ram  to  be  subroutine  connected." 

1184  PRINT  HEX(06) ;AT(17,5);"N  =]  will  treat  all  subroutines  as  if  they  a 
re  found  within  the";AT(18,10);"main  program.  No  oversized  'SUBROUTIN 
ES'  heading  is  printed." 

1185  PRINT  AT (11 ,36) ;"(Y/N) "; 

:KEYIN  C$ 

:IF  C$="y"  THEN  C$="Y" 

:IF  C$="n"  THEN  C$="N" 

:IF  C$="N"  OR  C$="Y"  THEN  1400 
.‘GOTO  1170 


1190  %  ::  :: 
1200  %  : : 

1210  %  : : 

1220  %  : :  Your 

wmm 

1230  %  : : 


1240  %  ::  Your  program  is  on  disk  address 
###  : : 

1250  %  : : 


1260  %  : :  Your 
### 

1270  %  : :  Your 
SCREEN  : 
1280  %  : : 

1290  %  : :  You 
###  : 
1300  %  :: 

1310  %  : : 


program  name  is 


program  will  be  flow-charted  on  .... 
program  will  be  flow-charted  on  the 


want  a  print-out  of  the  entire  program 


Starting  at  line  number 


#### 
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1320 

% 

•  • 

1330 

% 

•  • 

ii  Ending  at  line  number  . 

•  • 

1340 

% 

•  • 

1350 

% 

•  • 

i i  You  want  remarks  4  image  statements 

included  . 

W  :: 

1360 

% 

1370 

% 

•  • 

ii  Your  marked  subroutines  follow  the 

main  program  . 

###  :  i 

1380 

% 

1390 

X 

•  • 

• 

1400  IP  N2=0000  AND  N3=9999  THEN  Z3$="YES" 
iELSEZ3$="  NO" 

:IF  Z1$="Y"  THEN  Z4$="YES" 

:ELSEZ4$="  NO” 

:IF  C$=”Y"  THEN  Z5$="YE5M 
lELSEZ5$="  N0M 
:PRINT  HEX(03) 

1410  PRINT 

: PRINTUSING  1190 
: PRINTUSING  1200 
:PRINTUSING  1210 
iPRINTUSING  1220,C2$(Z) 

•.PRINTUSING  1230 
: PRINTUSING  1240,09$ 

: PRINTUSING  1250 

:IF  D7$[ ]"005"  THEN  PRINTUSING  1260,07$ 

:ELSEPRINTUSING  1270 
:PRINTUSING  1280 
iPRINTUSING  1290, Z3$ 

1420  PRINTUSING  1300 
.•PRINTUSING  1310,N2 
•.PRINTUSING  1320 
: PRINTUSING  1330, N3 
iPRINTUSING  1340 
iPRINTUSING  1350, Z4$ 
iPRINTUSING  1360 
iPRINTUSING  1370, Z5$ 
iPRINTUSING  1380 
iPRINTUSING  1390 
iPRINT  AT(5,65);B0X(1,9) 

1430  Z2$="  " 

iPRINT  AT(23,6);"Press  RETURN  to  continue,  any  other  key  to  re-input 
data  ==]  ? 

IKEYIN  Z2$ 

I IF  Z2$=HEX(00)  THEN  1440 
iZl=l 
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: 09$  ,  07$ , N2$ , N3$ , Z$ , Z1 $ , C$=HEX( 20) 

:A=0 

:GOTO  80 

1440  PRINT  HEX(03) ; HEX(020402020E) ; AT(8,18) ; "Now  Loading  main  BASCHART  p 
rogram" 

:T$=C2$(Z) 

: RE  TURN  CLEAR  ALL 

:LOAO  T "BASCHART" 

9000  REM  % 

GENERAL  SUBROUTINE 

:PRINT  HEX(030E);"Y0U  HAVE  LOADED  'DEFFNO'  THE  GENERAL  SUBROUTINES"; 
HEX(OA) 

-.LIST 

:END 

9010  DEFFN  '0  "SCRATCHT"; HEX(22) ; "BASchart"; HEX(22) ; "rSAVET  ()";HEX(22); 

"BASchart  ";HEX(220D) 

9070  DEFFN  '31 
tGOSUB  *4 
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' 3ASCHART '  makes  a  flowchart 

of  any  given  program 

110  REM  1  (  Charles  C.  Johnson  )  TAEG  -  U.S.  NAVY  Software:  REM 

N.T.C  Orlando,  FI. 

120  REM  % 

dimensioned  for  sector  readin 

g 

:C0M  Z1 

:DIM  Z$ (256)4  ,Q3$ (256)2 ,Q2$ (256)2 ,Q1$2 ,Q0$2 ,X$ (256) ,T$8 :  REM  *  dimens 
ioned  for  the  statement  conversion 
:DIM  Q7$(123)2,Q6$124 
130  REM  % 

dimensioned  for  sorting  +  sta 
tement  assignment 

:0IM  Q2(256) ,W$(256)2,L$(256)2,A$124,A1$124:  REM 
140  %  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : : 


150  %  :  :  NOW  FORMING  A  FLOW-CHART  OF  ######  ON  PRINTER  ### 

•  • 

•  * 

160  %  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : :  : : 


170  SELECT  PRINT  005(80) 

:PRINT  HEX(0F);HEX(03) 

180  REM  * 

dimensioning  for  main  program 

:DIM  A2$124,B2$124,C2$124,D2$124,F$124,F2$124,K2$124,L3$124,S9$124,T1 

$124,T2$124 

:DIM  E$10,N$5,U1$3 

:OIM  L13 (50)124, L2$ (50)124 

:DIM  F0(30) ,V(30) 

:G1=0 

190  IF  N2=0000  THEN  PRINT  AT(6, 33) ; "Thinking. . 

:IF  D7$="005"  THEN  PRINT  HEX(03) 

:IF  07$ ="21 5"  THEN  WEN  /215 
:IF  D7$="216"  THEN  $0PEN  /216 
: IF  07$ ="204"  THEN  $CPEN  /204 
: IF  07$=  "211"  THEN  3 OPEN  /211 
200  S9$=HEX(20) 

: IF  D7$="005"  OR  N2[ ]0000  THEN  D8$="005" 

:ELSED8$=07$ 

: SELECT  PRINT  [D8$]  (130) 

SPRINT  HEX(OD) 

:PRINT  "  Flow  chart  of  or 

ogram  ";T$ 

210  IF  08$ [ ]"005"  THEN  PRINT  "///////////////////////////////////////// 
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///////////////////////////////////////////////////////////////////// 


/////////////////" 

PRINT 

tf 

II 

: PRINT 

"  (- 

- )•• 

:PRINT 

"  ( 

START 

:PRINT 

"  (- 

- )•< 

:PRINT 

11 

1  II 

:PR1NT 

II 

V" 

:PRINT 

fl 

1  II 
• 

•.PRINT 

II 

t  II 
• 

:PRINT 

tl 

1  II 
• 

.•PRINT 

II 

1  II 
• 

230  SELECT  #1  [D9$] 

240  LIMITS  T#1 ,T$,0,Q0,Q1 ,Q1 
:Q8=0 

250  IF  ABS(Q1 )=1  THEN  260 
: SELECT  PRINT  005(80) 

: PRINT  hex(03);AT(12,8); "ERROR,  ";T$;"  is  not  an  active  program"; AT(1 
4,8);"now  Loading  BASCHART  start  program" 

:G0T0  730 

260  Q8=Q8+1 

:DATA  LOAD  BA  T#l,(0+Q8)  X$() 

:MAT  SEARCH  X$()  ,=HEX(FE)  TO  Ql$ 

:  IF  Q8+0=Q0  THEN  270 
:1F  VAL(Q1$,2)=0  THEN  260 
:Q0=0+Q8 
270  REM  % 

READ  SECTORS  ON  DISK,  ONE  AT 

A  TIIC 
280  0=0+1 

:DATA  LOAD  BA  T#1,(0)  X$() 

290  Q2$()  ,Q3$(),Z$(),W3(),L3(),Q73()=ALL(00) 

:Q1$,Q0$,Q6$=HEX(00) 

:MAT  Q2=ZER 
: E5 , I =0 

300  MAT  RE  DIM  Q2(256) ,L$ (256)2 , W$(256)2 
310  REM  * 


SEARCH  FOR  BEGINNING  AND  ENDI 


NG  LINE  STATEMENTS 

320  IF  STR (X$() ,2,2)=HEX(0000)  THEN  Gl=l 
:IF  Gl=l  THEN  1310 
330  MAT  SEARCH  X$() ,=HEX(FD)  TO  Qi$ 

: I F  VAL(Q13 ,2)=0  THEN  MAT  SEARCH  X$() ,=HEX(FE)  TO  Ql$ 
340  MAT  SEARCH  X$() ,=HEX(20FF)  TO  Q0$ 

:MAT  SEARCH  X$() ,=HEX(OOFF)  TO  Q2$() 

350  MAT  SEARCH  X$() ,=HEX(3A)  TO  Q3$() 

360  IF  VAL(Q03,2)]2  THEN  Q0$=ALL(00) :  REM 
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(  delete  colons  in  between  ""  marks  ) 

370  MAT  SEARCH  X30  ,=HEX(22)  TO  Q7$() 

: IF  VAL(Q7$(1) ,2)=0  OR  VAL(Q3$(1) ,2)=0  THEN  420 
380  13,1=1 

390  IF  Q3$(1)]Q7$(I3)  AND  Q3$(I)[Q7$(I3+1)  THEN  400 
:IF  Q3$ (I) [Q7$ (13+1 )  THEN  1=1+1 
:IF  Q3$ (1) ]Q7$ (13+1)  THEN  13=13+2 
:IF  VAL(Q7$(I3+1),2)=0  OR  VAL(Q33(I),2)=0  THEN  420 
:GOTO  390 

400  12=1 

410  Q3$(I2)=Q3$  (12+1 ) 

:IF  VAL(Q3$(I2+1) ,2)=0  THEN  390 
: 12=12+1 
:G0T0  410 

420  12,1,13=0 

:  Q7$ ( ) , Z$ ( ) = ALL (00) 

: IF  U5-1  THEN  490 
430  REM  % 

delete  colons  in  between  %  an 

d  next  line  No. 

:MAT  RE  DIM  Z$(256)2 

:MAT  SEARCH  X$ ( ) ,=HEX(08)  TO  Z$() 

:IF  VAL(Z$(1) ,2)=0  THEN  490 
:U5=1 

:Q7$(1)=Z$(1) 

:I2=1 

440  12=12+1 

:IF  VAL(Z$(I2) ,2)=0  THEN  450 
:Q7$ ( I2+I2-1 ) =Z$ (12) 

:G0T0  440 

450  Z$()=ALL(00) 

:  12=0 

460  12=12+2 

:IF  12=2  THEN  12=1 
: IF  VAL(Q7$(I2) ,2)=0  THEN  380 
470  MAT  SEARCH  STR(X$() ,VAL(Q7$(I2) ,2) ) ,=HEX(OD)  TO  Ul$ 
: I = VAL ( Ul$ , 2 ) +VAL ( Q7$ ( I 2) ,2)+3 
480  Q7$(12+1)=BIN(I ,2) 

:G0T0  460 

490  MAT  RE  01 M  Z$(256)4 

:U5=0:  REM  %  number  of  statements  with  line  numbers 
500  1=1+1 

:IF  VAL(Q2$(1) ,2)[ ]0  THEN  500 
:IF  VAL(Q03,2)[ JO  THEN  1=1+1 
: E5= I— 1 
510  REM  % 
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CONVERTING  (Jl$,QQ$,Q2$(,Q3$( 

TO  Z30 
520  1=1 

:I2, I3,Q=0 
530  Q=VAL(Q1$,2) 

: CONVERT  0  TO  Z$(I) ,(####) 

:IF  VAL(Q0$,2)=0  THEN  540 

:G1=1 

:I=2 

:Q=VAL(Q0$,2)+1 
: CONVERT  Q  TO  Z$(  I),  (####) 

:Q2(1)=VAL(QC$,2)+1:  REM  %  array  Q2()  will  hold  the  numbered  line  sta 
tements 
540  12=12+1 

:IF  VAL(Q2$(I2) ,2)=0  THEN  570 
: 1=1+1 

550  IF  G1=0  THEN  G12(I2)=VAL(Q2$(I2)  ,2)+l 
:IF  Gl=l  THEN  Q2(12+1)=VAL(Q2$(I2),2)+1 
:Q=VAL(Q2$(I2) ,2)+l 
: CONVERT  Q  TO  Z$( I) ,(####) 

560  GOTO  540 


570  13=13+1 

:IF  VAL(Q3$(I3) ,2)=0  THEN  620 
580  1=1+1 

590  Q=VAL(Q3$(I3)  ,2) 

: CONVERT  Q  TOZ$(I ),(####) 

600  GOTO  570 

610  REM  % 

RE -DIMENSIONING  AND  SORTING 

620  MAT  RE  DIM  Q2( E5) ,Z$ (I)4,L$ { 1)2, W3 ( 1)2 
630  MAT  SORT  Z$()  TO  W$(),  L$() 

640  H,H1,H3,H4=0 
650  RLM  % 

LOCATING  THE  STRING  A$  BE  TWEE 

N  EACH  Z$()  ARRAY 
660  H=H+1 

•.CONVERT  Z$(VAL(L$(H)  ,2))  TO  H3 
:IF  H3=VAL(Q1$,2)  THEN  280 
:H1=H 

:  IF  Hi  ]E5  THEN  HI  =E5 

: CONVERT  Z3(VAL(L$(H+1) ,2) )  TO  H4 

:I=0 

670  1=1+1 

:IF  Q2(I)=H3  THEN  A$=STR(X$() ,H3+3, (H4-H3)-3) 
: IF  Q2(I)=H3  THEN  690 
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:  IF  I[]E5  THEN  670 
:A$=STRO$()  ,H3+1,(H4-H3)-1) 

680  REM  % 


LOCATING  THE  LINE  NUMBER  THAT 


■ 


1 


V 


GOES  WITH  EACH  STATEMENT  A$ 

690  IE  Hl[  ]E5  THEN  710 

700  IF  H3j=Q2(Hl)  THEN  A1$=STR(X$() ,Q2(H1)+1 ,2) 

: IF  H3]=Q2(Hl)  THEN  760 

:H1=H1-1 

:GOTO  700 

710  IF  H3]=W2(H1)  ANO  H3i.Q2(Hl+l )  THEN  A1$=STR(X$()  ,(42(H1)4-1,2) 

:IF  H3]=Q2(Hl )  AND  H3(Q2(H1+1)  THEN  760 

THEN 

:G0T0  710 

720  SELECT  PRINT  005(80) 

:PRINT  HEX(03);AT(12,12); "ERROR,  (P56)  at  line  no.  640,  'this  can  be 
caused  by  a  protected  program." 

730  IF  D7$="216"  THEN  $CL0SE/2l6 
:IF  D7$="215"  THEN  $CU0SE/215 
:IF  D7$="204"  THEN  $CL0SE/204 
:IF  D7$=  "211"  THEN  $CL0SE/2ll 
740  FOR  1=1  TO  12000 
:NEXT  I 

: RE TURN  CLEAR  ALL 
.•LOAD  T  "BASchart" 

750  REM  % 

GO  TO  THE  STRING  CONVERSION  T 

HEN  THE  MAIN  BODY 
760  UNPACK (####)  Al$  TO  A1 
:Q, I, 12, 13=0 
:A1$=HEX{00) 

:Q2$() ,Q3$()=ALL(00) 

770  REM  % 

shift  the  statement  to  the  le 

ft,  if  needed 
:A1$=A$ 

:I2=LEN(A13) 

780  Q=Q+1 

:IF  0=125  THEN  790 

:IF  STR(A1$ ,Q,1)=HEX(20)  THEN  780 

:IF  STR(A1$,1,1)[  ]HEX(20)  THEN  800 
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: A$=STR(A1$,Q, I2-Q) 

:GOTO  800 

790  A$="%  COMMENT,  THIS  LINE  CANNOT  BE  PROCESSED" 

800  A1$=HEX(00) 

:I2,Q=0 
810  REM  % 

identify  the  first  byte  (comm 

and)  in  the  statement 
820  1=0 
830  1=1+1 

rHEXUNPACK  STR(A$,1,1)  TO  Q6$ 

:IF  Q6$[ ]Q5$(I)  THEN  850 
:A1$=A$ 

:I2=LEN(A13) 

:I3=LEN(Q4$(I)) 

:IF  I2+I3J123  THEN  I2=I2-(I3+1) 

8A0  IF  I[83  THEN  A$=Q4$(I)&"  "4STR( A13 ,2, 12+13) 
:ELSEA$=Q4$(I)4STR(A1$,2, 12+13) 

:Q6$=HEX(00) 

:GOTO  860 

850  Q6$=HEX(00) 

:IFI[]123  THEN  830 
860  A1$=HEX(00) 

:I, 12,13=0 
870  REM  % 

identify  any  referenced  line 

number  in  the  statement 
880  XI =0 

: Q=POS ( A$  =HEX ( FF ) ) 

:IF  Q[122  TEEN  890 

:X1=1 

:A1$=A$ 

:A$=STR(A1$,1,Q-1) 

:A1$=HEX(00) 

:Q=0 

890  IF  Q=0  THEN  940 
:A1$=A$ 

:I2=LEN(A1$) 

:IF  12— Q  Jl  THEN  900 
:I=Q 

:GOTO  910 

900  I=P0S(STR(A$,Q+1,I2-Q)=HEX(2CFF))+Q 
910  HEXUNPACK  SIR (A3 ,Q+1 ,2)  TO  Q6$ 

:IF  I=Q  THEN  A3=STR(A1$,1,Q-1)4Q6$ 

920  IF  I[ ]Q  THEN  A$=STR( A13 ,1 ,Q-1)4Q6$4STR(A13 ,1 ,I2-(I-1) ) 
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:Q6$,  Al$=HEX(0Q) 
: I , 12 , Q=0 
:G0T0  880 

930  REM  % 


identify  all  HEX  coded  bytes 

in  the  statement 
940  Q=0 

:Q6$=HEX(00) 

:I=I+1 

:IF  I]123  THEN  980 
: HEXPACK  Q6$  FROM  Q5$(I) 

950  Q=P0S(A$=Q6$) 

: I F  Q=0  THEN  940 
:A1$=A$ 

: I2=LEN(A1$)-Q 
960  IF  I[83  THEN  970 

:IF  I2[l  THEN  A$=STR(A1$,1,Q-1)4Q4$(I) 
:ELSEA$=STR  ( Al$ ,  1 ,Q-1 )&Q4$ ( I ) 4STR ( Al$ ,Q+1 , 12) 
:Q,I2=0 
: A1$=HEX(00) 
tGOTO  940 


970  IF  I2[l  THEN  A$=STR(A1$,1  ,Q-1  )4Q4$(I) 

:ELSEA$=STR(A1$,1 ,0-1)4"  ”4Q4$(I)4"  ”4STR(A1$ ,Q+1 , 12) 

:Q,I2=0 

:A1$=HEX(00) 

:GOTO  940 


980  1=0 


: 0=P0S ( A$  =HEX(8A) ) +POS ( A$ =HEX( 8B ) ) +POS ( A$=HEX( 03 ) ) +POS ( A$=HEX( 02 ) ) ♦ 
P0S(A$=HEX(F5) )+POS(A$=HEX( DC) ) 

:IFQ[]0  THEN  940 
: CONVERT  A1  TO  A13,  (####) 

990  IF  A1 ]=N2  AND  A1[=N3  THEN  D8$=D7$ 

: ELSE 08$= "005" 

:  IF  A1  ]N3  THEN  1310 
:Q6$=A$ 

:A$=A1$4"  "4Q6$ 

:A1$,Q6$=HEX(00) 

:IF  08$ ="005"  THEN  1100 
: SELECT  PRINT  005(80) 

1000  IF  T=1  THEN  1020 
: PRINT  HEX(03) 

:T=1 

:IF  All  ]N2  Then  1020 
: SELECT  PRINT  [08$ ]  (130) 

: PRINT  HEX(OC) 


: PRINT  "///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////////,//» 
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1010  PRINT  ”  PARTIAL 

FLOW-CHART  OF  ";T$ 

: PRINT  "  FROM  LI 

NES  ";N2;"  TO  ";N3 
1020  SELECT  PRINT  005(80) 

: PRINT  HEX(06) ;AT (6,0) ;STR(A13  ,1,80) 

1030  PRINT  AT(3,0);"  CCCCCCtCCCCCCCCCCCCCLCCCCCtLCC  NOW  READING 

]]]]]]]]]]])]]]]]]]]]]" 

1040  PRINT  AT(5,0);B0X(0,75);AT(7,0);B0X(0,75) 

:IF  LEN(A3)]79  THEN  1050 
:A9=(INT((80-LEN(A$))/2))-2 
:IF  A9[0  THEN  1050 
•.PRINT  AT(6, A9) ; A$ 

:GOTO  1060 

1050  PRINT  AT (6,0) ;STR(A$,1 ,78) 

1060  PRINT  AT (8,1); "now  at  sector  #  ";0 

: PRINT  AT(9, 35) ; "Percentage  of  processing  completed:"; INT(100-((100*( 
(Q0-0)/Q8))+l));"X" 

1070  PRINT  AT(16,18) ;B0X(1 ,29) 

: PRINT  AT (8,0) ;B0X(2,23) 

: PRINT  AT (8 , 34) ; BOX( 2,41) 

: PRINT  AT(9,l);"Ending  sector  #  ”;Q0 

:PRINT  AT (8 , 40) ; "numbered  statements  in  sector:";E5 

:IF  Z1$="Y"  THEN  PRINT  AT(16,2Q) {"Remarks  are  being  included" 

1080  PRINT  AT (19, 8); "operator  note:  processing  time  varies  with  each  pr 
ogram , " 

.•PRINT  AT (20, 25) ;"the  average  is  10  minutes  for  every  30  sectors." 
1090  PRINT  AT (12,0) ;B0X(3,75) ; 

: PRINTUSING  140 
.•PRINTUSING  150,T3,D8$ 

:  PRINTUSING  160 
: PRINT  AT (13,3) ;B0X(1 ,69) 

1100  SELECT  PRINT  [D8$J  (130) 

:GQSUB  1110 
:GOTO  660 

1110  REM  % 

START  OF  THE  MAIN  PROGRAM  ... 


1120  P=0 
:  J=0 

: GO SUB  '96 

:IF  P=1  THEN  RETURN 
:  J=POS(STR(A$ , J)=HEX(20) ) 

:GOSUB  '96 

:IF  P=1  THEN  RETURN 
:IF  STR(A$,J,5)="DEFFN"  THEN  L1=0 
:IF  STR ( A$ , J , 5 ) = "DEFFN"  THEN  1160 
1130  IF  L2=l  THEN  1270 
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: GO SUB  '66 

: IF  U=1  THEN  G0SU8  3750 
1140  GOSUB  '15 

: IF  E9=l  THEN  1140 
:IF  U6=l  THEN  GOSUB  '66 
1150  IF  A2$="ST0P"  OR  A2$="END"  THEN  L3=l 
: RETURN 

1160  U=0 

: IF  C$="N"  THEN  M=1 
:IF  M=1  THEN  1230 
:IF  X0=1  THEN  GOSUB  '81 
: IF  Y0=1  THEN  GOSUB  '83 
: GO SUB  '66 
:  PRINT 
:PRINT 
:  PRINT 

1170  PRINT  "  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$«' 

:PRINT 
: PRINT 

1180  PRINT  '•  MARKED" 

: PRINT 
:PRINT 
:  PRINT 


1190  PRINT 

•1 

SSSS  U 

U 

BBBB 

RRRR 

OOOUO 

U  U 

TTTTT 

iiiii 

N 

N 

EEEE  SSSS" 

:PRINT 

II 

S  U 

U 

B  B 

H  R 

0  0 

U  U 

T 

i 

NN 

N 

E  S" 

1200  PRINT 

•t 

SSSS  U 

U 

BBBB 

RRRR 

0  0 

U  U 

T 

i 

N 

NN 

EEEE  SSSS" 

:PRINT 

»i 

S  U 

U 

B  B 

R  R 

0  0 

U  U 

T 

i 

N 

N 

E  S" 

1210  PRINT 

ii 

SSSS  UUUUU 

BBBB 

R  R 

OOUOO 

UUUUU 

T 

iiiii 

N 

N 

EEEE  SSSS" 

1220  PRINT 

: PRINT  "  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 

:M=1 
:PRINT 
:PRINT 
: PRINT 

1230  IF  X0=1  THEN  GOSUB  '81 
: IF  Y0=1  THEN  GOSUB  '83 
:IF  Q=1  THEN  1270 
:L1=1 

: GOSUB  '66 
1240  PRINT 
: PRINT 

:PRINT  "///////////////////////////////////////////////////////////// 
//////////////////////////////////////////////////////////////////•• 

.•PRINT 
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iPRINT 

1250  PRINT  STR ( A$, J) 

:PRINT 

iPRINT  "*************#******" 

:PRINT  "*  SUBROUTINE  *'• 

: PRINT  '•*  ";STR(A$,1,J-1) *" 

:  PRINT  "********************" 

: PRINT  "  1" 

1260  E=0 
:  RE  TURN 

1270  GOSUB  '66 

: IF  U=1  THEN  GOSUB  3750 
1280  GOSUB  '15 

: IF  A2$="ST0P"  OR  A2$="END"  THEN  L3=l 
:IF  E9=l  THEN  1280 
:IF  U6=l  THEN  GOSUB  *66 
:IF  A2$="END"  THEN  GOTO  1300 
1290  IF  A2$[ ]"END"  THEN  L2=l 
:IF  L2=l  THEN  RETURN 
1300  PRINT 

:PRINT  "COMMENT :  THERE  IS  AN  /END/  COMMAND  IN  THIS  SUBROUTINE." 
iPRINT 
:W3=W3+1 
: RETURN 

1310  IF  X0=1  THEN  GOSUB  '81 
:IF  Y0=1  THEN  GOSUB  '83 
: GOSUB  '66 

: PRINT  "///////////////////////////////////////////////////////////// 
//////////////////////////////////////////////////////////////////" 
:PRINT 

1320  IF  N3[]9999  THEN  1390 
1330  IF  Jl[ ]1  THEN  1340 
: PRINT 
iPRINT 

:  PRINT  "NOTICE:  MULT  I -STATEMENT  LINE  NUMBERS  WERE  USED  IN  THIS  PROG 

RAM" 

1340  IF  L3=l  THEN  1350 
iPRINT 
:  PRINT 

:PRINT  "COt*€NT,  THERE  WAS  NO  /END/  OR  /STOP/  STATEMENT  IN  THIS  PRO 
GRAM" 

:W3=W3+1 

1350  IF  W3=0  THEN  1370 
iPRINT 
iPRINT 

:  IF  W3[  ]1  THEN  1360 

iPRINT  "NOTICE:  THERE  WAS  1  /COMMENT/  GIVEN  DURING  THIS  RUN" 

: GOTO  1370 

1360  PRINT  "NOTICE:  THERE  WERE";W3;"  /COMMENTS/  GIVEN  DURING  THIS  RUN" 
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1370  PRINT 

1380  IF  G=0  THEN  1390 
:  PRINT 

:PRINT  "CONSENT :  THIS  PROGRAM  CONTAINS  ' GOTO •  STATEMENTS" 

ISFRUN"  Th€N  PRINT  "  ™ERE  WAS  1  /G0T0/  DETECTED  DURING  TH 

NG^HIS  RUN"N  PRINT  "  THERE  WERE”JG;,,/G0T0’S/  DETECTED  DURI 

:PRINT 

•.PRINT 

1390  IF  D7$="215" 

:IF  D7$="216" 

:IF  07$="204" 

:IF  D7$= "211" 

: SELECT  PRINT  005(80) 

1400  I,J=0 


THEN  SCL0SE/215 
THEN  $C LOSE/ 216 
THEN  $C LOSE/ 204 
THEN  $C  LOSE/ 211 


: PRINT  HEX(07) 

:F0R  1=10 

TO  1200 

:NEXT  I 

:F0R  1=1 

TO  3 

:PRINT  HEX(07) 

:FOR  J=1 

TO  800 

:NEXT  J,I 

:FOR  1=1 

TO  400 

:NEXT  I 

: PRINT  HEX(07) 

:FOR  1=1 

TO  2400 

'.NEXT  I 

:FOR  I=d 

TO  2 

: PRINT  HEX(07) 

:FOR  J=1 

TO  1000 

:NEXT  J,I 

1410  PRINT  HEX(03);AT(20,7);B0X(1,56) 

:Z1$=HEX(0D) 

:PRINT  AT(5, 8) ; "Processing  +  Printing  completed.." 

^cPRINT  AT(20,8) ; "Was  it  your  intention  to  run  this  program  again?  (Y/ 

:KEYIN  Zl$ 

:IF  Z1$="Y"  THEN  1420 
:IF  Z1$="N"  THEN  1430 
:GOTO  1410 


1420  RETURN  CLEAR  ALL 


:Z1=1 

:LOAD  T  "BASchart" 

1430  $PSTAT="  " 

:  RE  TURN  CLEAR  ALL 


:COM  CLEAR 
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:LOAD  T  "START" 

rERRORPRINT  HEX(03) ; AT (15 , 8); "UNABLE  TO  LOAD  THE  START  PROGRAM" 
:STOP 

:ENO 

1440  REM  % 

SUBROUTINE  (DEFFN'15)  . 


1450  REm  search  statement  string  for  /  locate  and  return  position  of 
1460  REM  V  '  '  'THEN'  /compare  statement  against 
1470  REM  (FOR,NEXT,ELSE,R£M) 

1480  DEFFN'15 
:T2$=A$ 

:E9=0 
:F6=1 
:  J=0 

:GOSUB  '96 

:IF  P=1  THEN  RETURN 
:E2=P0S(STR(A$,J)=HEX(20) ) 

:N$=STR(A$, J,E2-J+1) 

1490  IF  T2$="  "  THEN  RETURN 
1500  J=0 

: GO SUB  '96 

:J=P0S(STR(T2$, J)=HEX(20) ) 

:GOSUB  '96 
:B1=J 

:J=P0S(STR(T2$, J)=HEX(20) ) 

:IF  J]123  OR  J[2  THEN  J=2 
:F$=5TR(T2$,B1,J-1) 

1510  IF  STR(F$,1,3)="REM"  OR  STR(F$,1 ,1)  =  "*"  AND  Z1$=*'N"  THEN  RETURN 
:IF  F6=0  TKEN  A$=T2$4S9$ 

:T2$="  " 

•.GOTO  1520 

1520  IF  E[  =4  THEN  1620 
:IF  F4[]0  THEN  1530 
:Wl=Wl+l 
:QOSUB  3820 
:F4=1 
1530  J=0 

: GO SUB  '96 

:IF  P=1  THEN  RETURN 
:B=J 

:J=P0S(STR(A$,J)=HEX(20)) 

:E1=J 

: GO SUB  '96 
:81=J 

: J=POS ( STR ( A$ , J ) = HEX( 20) ) 
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: IF  JJ123  OR  J[2  THEN  J=2 
1540  E3  =J 

:K2$=STR(A$,B1,E3-1) 

1550  IF  K2$[ ]”IF"  THEN  1580 
:F5=1 

1560  MAT  SEARCH  STR(A$, J) ,=HEX(205448454E)  TO  Al$ 
:J3=VAL(A1$,2) 

:A1$=ALL(00) 

:  IF  J3[  =0  THEN  GOSUB  '19 
1570  IF  F5=0  THEN  RETURN 
:F5=0 
:J=J3+5 
•Tit-"  *• 

•GOSUB  ’95 

1580  IF  K2$[]"F0R"  AND  K2$[ ]"NEXTM  THEN  1590 
:T1$=S9$ 

.-GOSUB  '95 

1590  IF  K2$="F0R"  THEN  E=E+1 
:IF  K2$="NEXT"  THEN  E=E-1 
:J0=0 

:J0=P0S(82$=",") 

:IF  J0=0  OR  K2$[  ]"NEXT"  THEN  1600 

:B2$JtR(A1$,1,J0-1) 

:A$=N$&"  "&K2$&"  ”&STR(A1$,30+1) 

:E9=1 

1600  A2$=K2$ 

:IF  E[=4  THEN  1610 

:IF  E9=l  THEN  PRINT  N$;"  ";B2$ 

:ELSEPRINT  STR(A$ ,1,124) 

:G0T0  1630 

1610  E=E+1 
:F4=0 
:A2$=K2$ 

:IF  K2$="F0R"  OR  K2$="NEXT"  THEN  J=E3 
: GOSUB  1680 
:GOTO  1630 

1620  GOSUB  ’10 

1630  IF  A2$="  FOR"  THEN  A2$="F0R" 

:IF  A2$="  NEXT"  THEN  A2$="NEXT” 

•GOSUB5"^"  ^ 

:F6=0 

1640  GOTO  1490 
1650  REM  % 


49 


Technical  Note  3-82 

10/25/82  BASCHART  PAGE  15 

PROGRAM  LISTING 

SUBROUTINE  (DEFFN  '10)  . 


1660  REM  locate  /  compare  (FOR, NEXT, REM, GOTO, GOSUB) 

1670  OEFFN'IO 
:  J=0 

: GOSUB  '96 
:B=J 

:J=P0S(STR(P$,J)=HEX(20) ) 

:E1  =J 

: GO SUB  '96 

:  IF  P=1  THEN  RETURN 
:B1=J 

:J=POS(STR(fl$, J)=HEX(20) ) 

:IF  J]123  OR  J[2  THEN  J=2 
:E3=J 

:A2$=STR(A$,B1,E3-1) 

1680  S=0 

:IF  A2$[ ]"FOR"  THEN  1690 
:T1$=S9$ 

‘.GOSUB  '95 
: GOSUB  '30 
:  RE  TURN 

1690  IF  A2$[  ]"NEXT"  THEN  1710 
: IF  E9=l  THEN  1700 
:T1$=S9$ 

: GOSUB  '95 
:J0=0 

:J0=P0S(B2$=",") 

:IF  J0=0  THEN  1700 
:A1$=B2$ 

:B2$=STR(A1$,1,J0-1) 

:A$=N$4"  *'4A2$4"  "4STR(  A13  ,00+1) 

:E9=1 

:A1$=HEX(00) 

1700  GOSUB  '35 
:  RE  TURN 

1710  IF  STR(A2$,1,1)[  ]"%"  AND  STR(  A2$,l  ,3)[  ]''REM"  THEN  1720 
:B2=B1 

:B2$=STR(A$,B2) 

: GOSUB  '75 
:  RE  TURN 

1720  IF  A2$[  ]"GOTO"  THEN  1730 
:T1$=”  " 

•GOSUB  '95 
:D2$="G0T0" 

: GO SUB  '45 
:  RETURN 
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1730  IF  STR(A2$,1,5)[ ]"GOSUB"  THEN  1740 
:T1$="  " 

: GO SUB  '95 
: D2$="Q0SUB" 

:GOSUB  '45 
: RETURN 

1740  IF  A2$[ ]"0N"  THEM  1800 
:T1$="  •• 

:J=B1 -1 
:GOSUB  '95 

:MAT  SEARCH  A$,  =  '«GOTO"  TO  Al$ 

; IF  VAL( A13 ,2)=0  THEN  MAT  SEARCH  A$,=''QOSUB"  TO  All 
:J=VAL(A1$,2)  * 

:A1$=ALL(00) 

:IFJ[]0  THEN  1750 
:  J=E3 

:G0T0  1800 

1750  C2$=STR(A$,E0+B2 ,3-(B2+EQ+l) ) 

:  J=POS(-STR(A$  ,1  ,P0S(-STR(A$  ,1 ,J-1)[ ]HEX(20)) )=HEX(20) ) 

: GO SUB  '95 

:J0=0 

1760  J0=J0+1 

:IF  STR (B2$ , JO, 1 ) = "  "  THEN  1760 
1770  IF  STR(B23,J0,4)[ ]"GOTO"  THEN  1780 
:T1$=59$ 

:J=B2+E0-1 
:GOSUB  '95 
:  02$=' "GOTO" 

:GOTO  1790 

1780  IF  STR (B2$, JO, 5 )[]"GOSUB"  THEN  1800 
:T1$=S9$ 

:J=B2+E0-1 
:GOSUB  '95 
:D2$="G0SUB" 

1790  G0SU8  '40 
: RETURN 

1800  IF  S=0  THEN  GOSUB  '20 
: RETURN 

1810  REM  % 

SUBROUTINE  (DEFFN'20)  . 


1820  REM  compare  (IFjPRINT, INPUT, GOSUB, GOTO, STOP, END, RE TURN) 
1830  DEFFN  '20  ’ 

1840  IF  A2$[ ]"IF"  THEN  1950 
:J=B1+E3-1 
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:GOSUB  '96 

:IF  P=1  THEN  RETURN 
:82=J 

: GO SUB  1560 

: IF  J3=0  THEN  RETURN 

:J=J3+B2 

:C2$=STR(A$,B2,J3-1) 

:T1$="  " 

:GOSUB  '95 
1850  D2$=B2$ 

:J=0 

1860  J=J+1 

:  IF  STR(02$,JJ1)  =  ''  "  THEN  1860 
1870  B2$=STR(D2$,J,P0S(S7R(D2$,J)=HEX(20) )-l) 

:D2$="  " 

1880  IF  B2$="PRINT"  OR  B2$="INPUT"  OR  B2$="PRINTUSING"  OR  B2$="KEYIN" 

OR  B2$="L INPUT"  OR  B2$="G0T0"  OR  B2$="G0SUB"  THEN  D2$=B2$ 

1890  IF  B2$[ ]"PRINT"  AND  B2$[ ]"INPUT"  AND  B2$[ ] "PRINTUSING"  AND  B2$[]"KLY 
IN"  AND  B2$[ ]"LINPUT"  AND  B2$[]"G0T0"  AND  B2$[ ]"GOSUB"  THEN  1900 
:J=B2+ED-1 
:GOTO  1930 

1900  IF  B2$]  =  ": "  THEN  1920 
: CONVERT  B2$  TO  N 
:ERR0RN=0 
:GOTO  1920 

1910  N=0 

:D2$="G0T0 " 

: J=B2-1 
:GOTO  1930 

1920  N=0 

:  D2$="  « 

:J=B2-1 
1930  Tl$=59$ 

:QOSUB  *95 
: GO SUB  '60 
1940  RETURN 

1950  IF  A2$="ELSE "  OR  A2$="EHR0R"  THEN  GOSUB  '65 

:IF  A2$="L0AD"  OR  A2$="ST0P"  OR  A2$="END"  THEN  GOSUB  '50 
:IF  A2$="RE TURN"  AND  STR(B2$,1,5)[ ]"CLE/W"  THEN  GOSUB  '85 
: I F  S[ ]0  THEN  RETURN 
1960  Tl$=59$ 

:IF  STR(A2$,1,5)[]"PRINT"  AND  STR(A2$,1 ,10) [ ] "PRINTUSING"  THEN  1980 
:J4=J+E1 -1 
19 7U  JA=JA+1 

:IF  STR(A$,J4,1)="  "  AND  J4[8l  THEN  1970 
:IF  J4=81  THEN  B2$="l  BLANK  LINE" 

:IF  J4[]81  THEN  GOSUB  '95 
: GOSUB  '82 


52 


Technical  Note  3-82 

10/25/82  8ASCHART  PAGE  18 

PROGRAM  LISTING 

.•RETURN 

1980  IF  STR(A2$,1,5)[  ]''INPUT"  AND  STR(A2$,1 ,5)[  P'KEYIN"  AND  STR(A2$,1,6) 
[  ]"L INPUT"  THEN  J=B1-1 
:GOSUB  *95 
1990  GOSUB  '80 
: RE TURN 

2000  REM  % 

SUBROUTINE  (DEFFN'98)  . 


2010  REM  compare  (FOR, ELSE, NEXT) 

2020  DEFFN'98 

2030  IF  A2$[]"F0R"  THEN  2040 
:C=C+1 

: IF  C[51  THEN  L1$(C)  =  "F0R  "&F2$ 

:IF  C[51  THEN  L2$(C)=STR(A$,B ,E1-B) 

:GOTO  2060 

2040  IF  A2$[ ]"NEXT"  THEN  2060 

:IF  C[51  THEN  A2$="NEXT  "&B2$ 

:L3$="F0R  "&B2$ 

:IF  C[1  THEN  GOSUB  *99 
:IF  C[1  THEN  2060 

: IF  C[51  AND  Ll$(C)  []  L3$  THEN  GOSUB  '99 
2050  C=C-1 

2060  FOR  J5=8  TO  El-B 

:IF  STR(A$,J5,1)["0"  OR  STR(A$,J5,1) j"9"  THEN  GOSUB  '92 
:NEXT  J5 

2070  CONVERT  STR(A$,B,E1-B)  TO  T1 

:IF  T1[=L  AND  F6=l  THEN  GOSUB  *91 
:L=T1 
: RETURN 

2080  REM  % 

SUBROUTINE  (DEFFN'60)  . 


2090  REM  print  diamond  symbol  /  compare  (GOTO)  /  print- 
2100  REM  YES  or  NO  option  /  compare  (PRINT, INPUT, QOSUB)  /  print- 
2110  REM  PRINT  or  INPUT 
2120  DEFFN'60 
:N1,N=0 

:  IF  XI  =1  THEN  GOSUB  2390 
2130  CONVERT  B2$  TO  Nl 
:ERR0RN,N1=0 
.-GOTO  2150 


2140  CONVERT  N$  TO  N 
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:ERR0RN1,N=0 
:GOTO  2150 

2150  K=E*20 

: IF  X0=1  THEN  GOSUB  '81 
:IF  Y0=1  THEN  GOSUB  '83 
:S*1 

:FOR  S3=l  TU  2 
: GOSUB  '90 

: PRINT  TAB(K) ; "  I" 

:NEXT  S3 

:IF  E=0  THEN  K=1 
2160  GOSUB  '90 

.•PRINT  TAB(K) ; "  /*";N$ 

: GOSUB  '90 

:PRINT  TAB(K) /  *'• 

: GOSUB  '90 

: PRINT  TAB(K) ; "  /  *•»; 

:IF  D2$[  ]"GOTO"  THEN  PRINT  "  '• 

:IF  02$[]"G0T0"  THEN  2170 

:IF  N1[N  THEN  PRINT  TAB(K+36);"  /i" 

:ELSEPRINT  '•  " 

2170  GOSUB  '90 

••PRINT  TAB(K) ; "  /  IF  *";C2$; 

:IF  Q2$[  ]''GOTO"  THEN  PRINT  "  " 

:IF  D2$[]"G0T0"  THEN  2180 

:IF  N1[N  THEN  PRINT  T/£(K+36);"  J" 

:ELSEPRINT  "  " 

2180  GOSUB  '90 

:PRINT  TAB(K) ; "  /  THEN 

2190  IF  D2$[  ]"G0T0''  THEN  2240 
:G=G+1 
: PRINT 

:IF  Nl[N  THEN  PRINT  TAB (K+36);"  • '' 

:ELSEPRINT  "  '• 

: GOSUB  '93 

:PRINT  TAB(K) ; "  *  ";D2$;"  /  [VE5 

:IF  N1[N  THEN  PRINT  TAB(K+36>;" 

:ELSEPRINT  "  '• 

: GOSUB  '90 

2200  PRINT  TAB(K) ; "  *  '';B2$;  T/e(K+ll) ; 

:  PRINT  "/ - ] - »• 

: GOSUB  '90 

: PRINT  TAB(K) ; "  *  /'»; 

:IF  N1]N  THEN  PRINT  T/«(K+38);" 
tELSEPRINT  "  " 

: GOSUB  *90 

2210  PRINT  TAB(K);"  *  /''; 

:IF  N1]N  THEN  PRINT  TAB(K+38);" 
lELSEPRINT  "  " 

: GOSUB  '90 

2220  PRINT  TAB(K) ;''  */": 
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:IF  Nl]N  THEN  PRINT  T/«(K+38);"  1" 
tELSEPRINT  "  " 

:IF  E=0  THEN  K=0 
:GOSUB  '90 
: PRINT  TAB(K) ; " 

:IF  N1]N  THEN  PRINT  TAB(K+38);"  V" 

:ELSEPRINT  "  " 

:GOSUB  '90 

2230  PRINT  TAB(K);"  [NO]” 

:GOTO  2380 

2240  IF  D2$[  ]"KEYIN"  AND  D2$[  ]''L INPUT"  AND  D2$[  ]" INPUT"  THEN  2250 
.•PRINT 
:GOSUB  '93 

•.PRINT  TAB(K);''  *  ” ; D2$ ; ”  /  ** ; B2$ 

:QOSUB  '90 

: PRINT  TAB(K) ; "  *  /" 

:GOTO  2370 

2250  IF  D2$[]"PRINT"  AND  D2$[  ]''PRINTUSING"  THEN  2290 
2260  PRINT 

:G0SUB  '93 

•.PRINT  TAB (K) ; "  *  /  [YES]  /===============/" 

:GOSUB  '90 

: PRINT  TAB(K);''  *  /=========]  /  /•' 

2270  GOSUB  '90 

:IF  02$="PRINT"  THEN  PRINT  TAB (K) ; "  *  /  (  PRINT 

(  ";B2$ 

:ELSEPRINT  TAB(K) ; "  *  /  (  PRINTUSING  (  ";B2$ 

: GOSUB  '90 

: PRINT  TAB(K) ; "  *  /  *  #" 

: GOSUB  '90 

: PRINT  TAB(K) ; "  */  ================='• 

2280  GOSUB  '90 

•.PRINT  TAB(K);''  I" 

: GOSUB  '90 

: PRINT  TAB(K) [NO]" 

:GOTO  2380 

2290  IF  STR(Q2$,1,5)[]"G0SU8"  THEN  2330 
2300  PRINT 

: GO SUB  '93 

:PRINT  TPB(K);"  *  /  [YE5]  . " 

: GOSUB  '90 

: PRINT  TAB (K) ; "  *  /=========]:  :»• 

2310  GOSUB  '90 

: PRINT  TAB(K);"  *  /  :  ";D2$;"  ";B2$; TAB(K+36) ; " 

: GOSUB  '90 

: PRINT  TAB(K) ; "  *  /  : 

:  GOSUB  '90 

:PRINT  TAB(K) V  : . 

2320  GOSUB  *90 
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: PRINT  TAB(K) ; "  •" 

:GOSUB  '90 

: PRINT  Tffi(K);''  [NO]" 

:GOTO  2380 

2330  IF  STR(82$,1,6)[]"RETURN"  AND  STR(82$,1 ,7)[ ]"  RETURN"  THEN  2360 


:PRINT 
: GO SUB  '93 

: PRINT  TAB(K);"  *  /  [YES]  :::::::: . 

:GOSUB  '90 

: PRINT  TAB(K);"  *  /=========]:: 

2340  GOSUB  *90 

:PRINT  TAB(K);"  *  /  ::  RETURN 


: GOSUB  '90 

:PRINT  TAB(K);"  *  /  :: 

: GOSUB  '90 

:PRINT  TAB(K);"  */  : . . 

2350  GOSUB  '90 

: PRINT  TAB(K);"  •" 

: GOSUB  '90 

:PRINT  T PB(K);”  [NO]" 

:GOTO  2380 

2360  PRINT  B2$ 

: GOSUB  *93 

:PRINT  TAB(K) *  /" 

: GOSUB  *90 

: PRINT  TAB(K) *  /'• 

2370  GOSUB  '90 

:PRINT  TAB(K) ; "  *  /" 

: GOSUB  '90 

:PRINT  TAB(K) *  /" 

: GOSUB  *90 

: PRINT  TAB(K);"  */" 

2380  IF  E=0  THEN  K=0 
: GOSUB  '8 
: RETURN 

2390  PRINT 

:PRINT  "COMMENT,  THIS  /IF. ..THEN/  STATEMENT  MAY  BE  TOO  LONG  TO  PROC 
ESS  TO  ITS  EXTENT" 

:PRINT 
:W3=W3+1 
:  RE  TURN 

2A00  REM  % 

SUBROUTINE  (DEFFN'30)  . 


2410  REM  print  diamond  (decision)  /  compare  (FOR) 
2420  DEFFN'30 
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2430  K=E*20 

:IF  X0=1  THEN  GOSUB  '81 
:IF  Y0=1  THEN  GOSUB  '83 
:S=1 

2440  GOSUB  '90 

•.PRINT  TAB(K);"  1” 

:QOSUB  *90 

:PRINT  T/«(K);"  1" 

: GOSUB  *90 

sPRINT  T/«(K);"  /*";N$ 

: GOSUB  *90 

:PRINT  TAB(K);"  /  *" 

2450  GOSUB  '90 

: PRINT  TAB(K);"  /  *" 

: GOSUB  *90 

: PRINT  T«(K);"  /  *" 

:IF  A2$="F0R"  THEN  A2$="  FOR” 

: GO SUB  '90 

2460  PRINT  TAB(K) ; "  /  A2$;  T/e(K+12) ; "*  ";B2$ 

: GOSUB  '93 

SPRINT  TAB(K) ; "  *  / - ] - 

2470  GOSUB  '90 

SPRINT  TAB(K);"  *  /"; T/©(K+28) ; " 

S GOSUB  *90 

SPRINT  T«(K);''  *  /";TAB(K+27);"  V" 

2480  GOSUB  *90 

SPRINT  TAB(K) *  /”; TAB(K+28) ; "l” 

5  GOSUB  '90 

SPRINT  TAB(K);''  */"; TAB(K+28) ; "I” 

2490  E=£+l 
sFO(E)  =1 
s RETURN 

2500  REM  % 

SUBROUTINE  (DEFFN'35)  . 


2510  REM  print  diamond  (decision)  /  compare  (NEXT) 
2520  OEFFN'35 

2530  IF  X0=1  THEN  GOSUB  '81 
sIF  Y0=1  THEN  GOSUB  '83 
sIF  EdD  THEN  RETURN 
SF0(E)=0 
sE=E-l 
SK=E*20 
SS=1 

2540  GOSUB  '90 

SPRINT  TAB(K);"  /*";T«(K+28);":" 

s GOSUB  '90 

SPRINT  TAB(K);''  /  *";TAB(K+28);"I" 

s GOSUB  '90 
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2550  PRINT  TAB(K) 
rGOSUB  '90 
.•PRINT  TABOO;" 

2560  GOSUB  '93 

: PRINT  TAB(K) ; " 
rGOSUB  '90 
rIF  A2$="NEXT" 

2570  PRINT  TAB(K) 

: GOSUB  '90 
.•PRINT  TAB(K);" 
.•GOSUB  '90 

2580  PRINT  TAB(K);" 
rGOSUB  '90 
: PRINT  TAB(K);" 
:QOStB  '90 
: PRINT  T 
; GOSUB  ' 8 
:  RE  TURN 

2590  REM  % 
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/  *";TAB(K+28);"i" 

/  *";TAB(K+28);"i" 

/  * - ( - 

THEN  A2$="  NEXT" 

*  A2$;TAB(K+12) ; "/  ";B2$ 

*  /« 

*  /•* 

«  /»* 

*/« 


SUBROUTINE  (DEFFN'40) 


2600  REM  locate  position  in  string  statement  of  ','  /  print  -lines 
2610  REM  and  arrows  /  print  diamond  with  ON  /  compare  (GOTO) 

2620  DEFFN'40 

:IF  XI =1  THEN  GOSUB  2820 
2630  W,J,J0=0 
2640  V2=00 
:W=W+1 
:J=0 

2650  3=P0S (STR ( 82$ , V 2+1 ) = " , " ) 

:J0=J0+J 

:IF  J0-V2-l=0  ANO  J]0  THEN  V(W)=0 
:IF  JQ-V2-1=0  ANO  J30  THEN  2640 

:IF  J]0  THEN  CONVERT  STR(82$,V2+1, J0-V2-1)  TO  V(W) 

2660  IF  J[]0  THEN  2640 

•.CONVERT  STR(B2$,V2+1,LEN(B2$)-V2)  TO  V(W) 

2670  S=1 

2680  IF  X0=1  THEN  GOSUB  '81 
:IF  Y0=1  THEN  GOSUB  '83 
:K=E*20 
:W2=W-1 
••GOSUB  *90 

•.PRINT  TAB(K);"  -3"; 

.•FOR  Z=1  TO  W2 

•.PRINT  " - 

:NEXT  Z 

2690  PRINT  "  " 

:K3=N2*4+K 
rGOSUB  '90 
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: PRINT  TAB(K3) 1" 

:QOSUB  ’90 

:PRINT  T«(K3);"  /*";N$ 

:GOSUB  *90 

: PRINT  TAB(K3) /  *" 

2700  GOSUB  '90 

: PRINT  TAB(K3) /  *" 

: GOSUB  *90 

:PR1NT  T*8(K3);"  /  *" 

: GOSUB  '90 

•.PRINT  TAB(K3) /  ON  *";C2$ 

2710  GOSUB  '90 

: PRINT  TAB(K3) *  **;D2$; T^(K3+15) ; "/" 

: GOSUB  *90 

.•PRINT  TAB(K3);"  *  /" 

: GOSUB  ’90 

2720  PRINT  TAB(K3) *  /" 

: GOSUB  '90 

:PR1NT  TAB(K3) ; "  *  /" 

-.GOSUB  '90 

rPRJNT  TAB(K3) ; "  */" 

: GObUB  '90 

:PRINT  TAB(K3) l" 

2730  GOSUB  *93 

:PRIN1  TAB(K);" 

:F0R  Z=1  TO  V*2 

: PRINT  •• - 

:NEXT  Z 
•.PRINT  "  " 

: GOSUB  '90 
: PRINT  T«(K);" 

:FOR  Z=1  TO  W 
:PR1NT  "  ";Z; 

:NEXT  Z 

2740  GOSUB  '90 

•.PRINT  TPB(K);" 

:FOR  Z=1  TO  W 
:PRINT  " 

:NEXT  Z 
:PRINT  "  " 

2750  GOSUB  '90 

•.PRINT  T*©(K);" 

:F0R  Z=1  TO  W 

:PRINT  "  - 

:NEXT  Z 
: PRINT  "  " 

: GOSUB  '90 
•.FOR  Z=1  TO  W 

2760* CONVERT  V(Z)  TO  £$,(#####) 

:PRINT  TflB(Z*8+K);STR(E$  ,1,5) ; 

:NEXT  Z 
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2770  PRINT  "  " 

:GOSUB  '90 
: PRINT  TAB(K);” 

:FOR  Z=1  TO  W 

: PRINT  "  - 

:NEXT  Z 
: PRINT  "  " 

:FOR  F=1  TO  2 
: GO SUB  '90 
: PRINT  TAB(K) 

:FOR  Z=1  TO  W 
.•PRINT  " 

:NEXT  Z 

2780  PRINT  "  " 

:NEXT  F 
: GO  SUB  '90 
:PRINT  TAB(K);” 

:FOR  Z=1  TO  W2 

: PRINT  " - 

:NEXT  Z 
: PRINT  "  " 

:GOSUB  '90 

: PRINT  T/»(K3);"  " 

:GOSUB  '90 
.•PRINT  TAB(K);" 

2790  FOR  Z=1  TO  W2 

: PRINT  " - 

:NEXT  Z 
: PRINT  "1" 

2800  IF  D2$[ ]"GOTO"  THEN  2810 
:G=G+1 
:B2$=N$ 

:GOSUB  '4 
:  RE  TURN 

2810  GOSUB  '8 
:  RE  TURN 

2820  PRINT 

: PRINT  "COWCNT,  THIS  /ON.  .GOSUB(GOTO)/  STATEMENT  MAYBE  TOO  LONG  TO 
PROCESS  TO  ITS  EXTENT” 

:PRINT 

:A1$=B2$ 

:  J=P0S(-B2$='', ") 

:B2$=STR(A1$  ,1 ,J-1) 

:A1$=HEX(00) 

:W3=W3+1 

•.RETURN 


2830  REM  % 
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SUBROUTINE  (DEFFN'45) 


2840  REM  print  -  block  around  GOTO  /  compare  (GOTO) 
2850  DEFFN'45 
2860  S=1 

:IF  X0=1  THEN  GOSUB  *81 
:IF  V0=1  THEN  GOSUB  '83 
:K=E*20 
: GOSUB  '90 

•.PRINT  TAB(K) 1" 

: GOSUB  '90 
: PRINT  TAB(K) ; " 

:IF  E=0  THEN  K=1 
2870  GOSUB  '90 

: PRINT  TAB(K);" . ";N$ 

: GOSUB  '90 
: PRINT  TAB(K) 

: GOSUB  '93 

:IF  D2$[  ]''GOTO"  THEN  2880 
:D2$="  GOTO" 

:G=G+1 

2880  PRINT  TAB(K) ; ";D2$;"  ";B2$;  T/«(K+14);":'' 

: GOSUB  '90  . 

: PRINT  TAB(K);": 

: GOSUB  *90 

.•PRINT  TAB(K);'': . 

:IF  E=0  THEN  K=0 

2890  IF  02$ ="  GOTO*'  THEN  GOSUB  *4 
rELSEGOSUB  '8 
:  RE  TURN 

2900  REM  % 

SUBROUTINE  (DEFFN'50)  . 


2910  REM  print  -  block  around  STOP  or  END  or  LOAD 
2920  DEFFN'50 
2930  U=1 

:IF  A2$[  ]''L0AD''  THEN  B2$="  " 

:IF  A2$[]"L0A0"  THEN  2940 
:J=E3 

: GOSUB  '95 
2940  S=1 

:IF  X0=1  THEN  GOSUB  '81 
:IF  Y0=1  THEN  GOSUB  '83 
:K=E*20 
: GOSUB  '90 

•.PRINT  TAB(K);"  •" 

: GOSUB  '90 

: PRINT  TAB(K);''  I" 
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:GOSUB  '90 

:IF  E=0  THEN  K=1 

: PRINT  TAB(K) 

: GO SUB  '90 

2950  PRINT  TAB(K);"  ( 
:Q0SUB  '90 
: PRINT  TAB(K);"  ( 
:GOSUB  '90 
: PRINT  TAB(K) ; "  ( 

:GOSUB  '90 
:PRINT 
:GOSUB  '90 
:PRINT 
:R1=1 
: RE TURN 


";N$ 

- )« 

A2$;TAB(K+12);")";B2$ 
)" 


2960  REM  % 

SUBROUTINE  (DEFFN'65) 


2970  REM  print  -  block  around  ELSE  OR  ERROR/  print  lines  and  arrows 
2980  DEFFN'65 

2990  IF  X0=1  THEN  GOSUB  '81 
:IF  Y0=1  THEN  GOSUB  '83 
:K=E*20 
-.GOSUB  '90 

: PRINT  TAB(K);"  ***********  ";N$ 

: GOSUB  '90 

:  IF  A2$="ELSE"  THEN  PRINT  TAB(K) ; "  *  ELSE  *  =======]— 

rELSEPRINT  TAB(K) *  ERROR  *  =======] - " 

: GO SUB  '90 

3000  PRINT  TAB(K);"  ***********  ••• 

:E=E+1 

:IF  A2$="ELSE"  THEN  U6=l 
:ELSEU6=2 
3010  J=E3 

: GO SUB  '95 
:A$=N$4"  "4B2$ 

:S=1 
:E9=1 
:  RE  TURN 

3020  REM  % 

SUBROUTINE  (OEFFN'75)  . 


3030  REM  print  the  REMARKS  statement 
3040  OEFFN'75 
3050  S=1 

: IF  X0=1  THEN  GOSUB  '81 
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:IF  >0=1  THEN  GO SUB  '83 
:K=E*20 
: GO SUB  *90 
: PRINT  TAB(K)  ;B2$ 

•.RETURN 

3060  REM  % 

SUBROUTINE  (0EFFN'81)  . 


3070  REM  print  line  then  reference  print  routine 
3080  DEFFN'81 
3090  K=E*20 
:X0=O 

: IF  E=0  THEN  K=1 
:QOSUB  '90 

: PRINT  TAB(K);": . 

:IF  E=0  THEN  K=0 
:GOSUB  '8 
: RETURN 

3100  REM  % 

SUBROUTINE  (DEFFN'85)  . 


3110  REM  print  block  around  RETURN/warning  of  no  stop  instr. before  subro 
utine 

3120  DEFFN'85 
3130  U=1 
:K=E*20 

:IF  X0=1  THEN  GOSUB  '81 
:IF  Y0=1  THEN  GOSUB  '83 
:FOR  S3=l  TO  2 
:PRINT  TAB(K) •" 

:NEXT  S3 

:IF  E=0  THEN  K=1 

: PRINT  TAB(K);": ::::::::::::::  ";N$ 

: PRINT  TABOO 

3140  PRINT  TAB (K);": :  RETURN 
: PRINT  TAB(K) 

•.PRINT  TAB(K) ; " : : : : : : : :::::::: " 

: PRINT 
:S=1 

3150  IF  Rl[  ]0  THEN  RETURN 
.•PRINT 

:PRINT  "COMMENT,  THERE  WAS  NO  /STOP/  INSTRUCTION  BEFORE  THIS  SUBR 
OUTINE" 

:W3=W3+1 

:PRINT 

:R1=1 
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:  RE  TURN 

3160  REM  % 

SUBROUTINE  (DEFFN'90)  . 


3170  REM  print  down  line 
3180  DEFFN'90 
3190  IF  E=0  THEN  RETURN 
3200  FOR  K2=l  TO  E 

.•PRINT  TAB(K2*20-12);"i"; 
:NEXT  K2 
:  RE  TURN 

3210  REM  X 

SUBROUTINE  (DEFFN'91)  ... 


3220  REM  print  warning  of  instruction  No. 

3230  DEFFN'91 
3240  01=1 

:IF  T1=L  THEN  RETURN 
: PRINT 

:PRINT  "COMMENT,  EITHER  INSTRUCTION  NUMBER  ";T1;"0R";L;"  IS  OUT  OF 
ORDER" 

3250  W3=W3+1 
:  PRINT 
:  RE  TURN 

3260  REM  % 

SUBROUTINE  (DEFFN'92)  . 


3270  REM  print  line  sequence  error,  abort 
3280  DEFFN'92 
3290  PRINT 

: PRINT  "COhfCNT,  INSTRUCTION  ";STR(A$,1) 

.•PRINT  "  DOES  NOT  HAVE  A  CORRECT  INSTRUCTION  NUMBER . " 
JPRINT 
:W3=W3+1 
:  RE  TURN 

3300  REM  % 

SUBROUTINE  (DEFFN'93)  . 


3310  REM  print  up  or  down  arrows 
3320  DEFFN'93 
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3330  IF  E=0  THEN  RETURN 
3340  FOR  K2=l  TO  E 

: IF  F0(K2)=1  THEN  PRINT  TAB(K2*20-13) ; "/! 
:ELSEPRINT  T/B(K2*20-13) !/"; 

:NEXT  K2 
:  RETURN 

3350  REM  % 

SUBROUTINE  (DEFFN'95)  . 


3360  REM  locate  and  save  line  following  the  word  after  the  value  J:  REM 
if  can't  then  save  the  word  after  J 
3370  DEFFN'95 
3380  GOSUB  '96 

: IF  P=1  THEN  RETURN 
:B2=J 

:  E4=P0S (-  A$  =HEX(OD ) ) 

:IF  E4=0  THEN  E4=P0S(-A$[ ]HEX(20) )+l 
: EO=POS (STR ( A$ , B2 ) =HEX( 20) ) 

:IF  E4]=115  THEN  Xl=l 
:IF  E0+B2]=E4  THEN  3400 
:B2$=STR(AS  ,EG+B2 ,E4-(E0+62) ) 

3390  RETURN 

3400  IF  B2]=E4  THEN  3410 
:B2$=STR(A$,B2) 

; RE TURN 

3410  B2$="  " 

:RETURN 

3420  REM  % 

SUBROUTINE  (DEFFN' 96)  . 


3430  REM  print  warning  of  statement  error,  abort 
3440  DEFFN *96 
3450  J=J+1 

:IF  J]124  THEN  3460 
:IF  STR(A$,J,1)="  "  THEN  3450 
:IF  J[=124  THEN  RETURN 
3460  PRINT 

3470  PRINT  "COMMENT,  NOT  A  COM’LETE  BASIC  INSTRUCTION" 
:P=1 

:W3=W3+1 
: PRINT  A$ 

:  RE  TURN 


3480  REM  % 
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SUBROUTINE  (DEFFN'99) 


3490  REM  print  line  sequence  reference  error,  abort 
3500  DEFFN'99 
3510  W3=W3+1 
:PRINT 

: PRINT  "COMMENT,  THIS  PROGRAM  HAS  A  LOGIC  ERROR" 

: PRINT  "  /"; A2$;"/  OF  LINE  NUMBER  ";N$ 

:IF  C=0  THEN  RETURN 

: PRINT  "  DOES  NOT  MATCH  UP  WITH  /";L1$(C);'7  OF  LINE  NUMB 

ER  L2$(C) 

3520  RETURN 

3530  REM  % 

SUBROUTINE  (DEFFN'80)  . 


3540  REM  print  block  around  PROCESS  /  compare  and  print  (PRINT, INPUT) 
3550  DEFFN'80 
:K=E*20 

:IF  Y0=1  THEN  GOSUB  '83 
3560  IF  X0[]0  THEN  3580 
:FOR  S3=l  TO  2 
: GOSUB  '90 

: PRINT  TAB(K) ; "  1  " 

:NEXT  S3 

:IF  E=0  THEN  K=1 
: GOSUB  '90 

3570  PRINT  TAB(K);" . ";N$ 

: GOSUB  '90 

:PRINT  T PROCESS 
: GOSUB  '90 

:PRINT  TAB(K);": . 

:X0=1 

:Z0=1 


3580 


3590 


3600 


3610 

3620 


) 


IF  E=0  THEN  K=1 
GOSUB  '90 

PRINT  TAB(K);": - 

IF  Z0=1  THEN  GOSUB  '93 
IF  Z0=8  THEN  Z0=0 
IF  Z0[]1  THEN  GOSUB  '90 
Z0=Z0+1 

$TRAN(B2$, " . ") 

$TRAN(A2S," . ") 

IF  A2$="INPUT"  OR  A2$="KEYIN"  OR  A2$="LINPUT" 

I/O  A2$;TAB(K+14) ";B2$ 

IF  STR(A2$,1 ,2)=STR(B2$,1 ,2)  THEN  B2$="  " 

IF  A2$[  ] "INPUT"  MD  A2$[  ]' "KEYIN'*  AND  A2$[  ]"LINPUT" 
";STR(A$,B,E1-B); TAB(K+14) ; ";A2$;"  ";B2$ 
RETURN 


THEN 


PRINT  TAB(K) ; 


THEN  PRINT  TAB(K 
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3630  REM  % 

SUBROUTINE  (DEFFN'8)  . 


3640  REM  print  down  arrow-line 
3650  DEFFN'8 


GOSUB  '90 

PRINT  TAB(K);" 

1  It 
• 

GOSUB  *90 

PRINT  T«(K);" 

V" 

GOSUB  '90 

PRINT  TAB(K);" 

1  II 

GOSUB  *9C 

PRINT  TAB(K) ; " 

1  II 
• 

RETURN 

3660  REM  % 

SUMROUTINE  (OEFFN'4) 


3670  REM  print  line  and  arrows,  horizontal 
3680  DEFFN  *4 
:N,N1 =0 

: CONVERT  B2$  TO  Nl 
:ERR0RN,N1=0 
:G0T0  3700 

3690  CONVERT  N$  TON 
:ERR0RN,N1=0 
:GOTO  3700 

3700  GOSUB  ’90 

: PRINT  TAB(K);"  1"; 

:IF  N1[N  THEN  PRINT  TPB(K+34) ;"/l" 
rELSEPRINT  "  " 

: GOSUB  *90 

3710  PRINT  T«(K);"  V"; 

:IF  Nl [N  THEN  PRINT  TAB(K+34) ; "  i" 
rELSEPRINT  "  " 

: GOSUB  '90 
: PRINT  T*©(K);” 

:IF  Nl [N  THEN  PRINT  TAB(K+34);"  J" 
rELSEPRINT  "  " 

: GOSUB  *90 

3720  PRINT  TPB(K);"  - ] 

r GOSUB  *90 

3730  IF  N1]N  THEN  PRINT  T«(K+34);"  1" 
rELSEPRINT  "  " 

: GO SUB  '90 

rIF  Nl]N  THEN  PRINT  TAB(K+34) ; "  1" 
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:ELSEPRINT  '•  " 

:GOSUB  *9Q 

:IF  N1]N  THEN  PRINT  TAB(K+34);"  V" 
lELSEPRINT  •'  " 

: GO SUB  '90 
3740  U-l 

:IF  U6=0  THEN  RETURN 

:U6,U=0 

:E=E-1 

:IF  E=0  THEN  PRINT  "1" 

: RETURN 

3750  IF  U[  ]1  THEN  3760 
:K=E*20 

:IF  E=0  THEN  K=0 
:U=0 

3760  IF  E[1  THEN  PRINT  T^(K);"  — [ - [  ?  j" 

•.ELSEPRINT  TAB(K);"  " 

3770  GOSUB  '90 


PRINT  TAB(K) 

V" 

GOSUB  '90 

PRINT  TAB(K);" 

v 

GOSUB  '90 

PRINT  TAB(K) ; " 

1  N 
• 

GOSUB  '90 

PRINT  TAB(K) 

•  II 

• 

RETURN 

3780  REM  % 

SUBROUTINE  (OEFFN'19) 


3790  REM  print  illegal  use  of  IF, THEN,  /  print  module  [==]  unstructured 
3800  DEFFN'19 
:W3=W3+1 
:PRINT 

:  PRINT  '^COMMENT,  CANNOT  RE  AO  /IF.  ..THEN/  IN  STATEMENT  (MAY  BE  TO  L 
ONG  TO  PROCESS)" 

: PRINT  "  OR  CANNOT  MATCH  /FOR/  OR  /NEXT/  WITH  IT'S  LOOP  CO 

KPLE»€NT" 

: PRINT  STR(A$,1) 

3810  RETURN 

3820  K=E*20 
: GOSUB  '90 

:PRINT  TAB(K);"  1" 

: GOSUB  '90 

-.PRINT  TAB(K) •" 

: GOSUB  '90 

: PRINT  TAB(K);"  /  *" 

: GOSUB  '90 
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:PRINT  TAB(K) ; "  /  *" 

3830  GOSUB  *90 

: PRINT  TAB(K) ; "  /  MODULE  *" 

: GOSUB  '93 

:PRINT  TAB(K);"  /  Nl ;  T/£(K+13) ; 

: GOSUB  '90 

:PRINT  TAB(K) /  *" 

: GOSUB  '8 
3840  RETURN 

3850  REM  % 

SUBROUTINE  (DEFFN  *82)  . 


3860  DEFFN' 82 
:K=E*20 

:IF  X0=1  THEN  GOSUB  '81 
: IF  Y0[]0  THEN  3890 
:FOR  S3=l  TO  2 
: GOSUB  '90 

: PRINT  TAB(K);"  * 

:NEXT  S3 

:IF  E=0  THEN  K=1 
: GOSUB  '90 


3870  PRINT  TAB(K);"  /======*========/  ";N$ 

: GOSUB  '90 

: PRINT  TAB(K) ; "  /  -  /" 

: GOSUB  '90 

:PRINT  TAB(K) ;"(  (  PRINTING  (  (" 

: GOSUB  '90 

:PRINT  TAB(K);"  *  -  *" 

: GOSUB  '90 

; PRINT  TAB(K);"  * - *" 


3880  V0=1 
:X=1 
:Z0=0 

3890  IF  E=0  THEN  K=1 

:IF  Z0=1  THEN  GOSUB  '93 
:IF  Z0=8  THEN  Z0=0 
:IF  Z0[]1  THEN  GOSUB  *90 
:Z0=Z0+1 


:$1RAN(B2$," . ") 

:IF  B2$=''RINT.  THEN  B2$="l  BLANK  LINE" 

:IF  M00(X,2)=0  THEN  3910 

3900  PRINT  TAB(K);"  ) - )" 

: GOSUB  '90 

: PRINT  TAB(K);"  /  /" 

: GOSUB  '90 


: IF  A2$= "PRINT"  THEN  PRINT  TAB(K);"  /  PRINT  /  ";B2$ 

rELSEPRINT  TflB(K);"  /  PRINTUSING  /  ";B2$ 

:GOTO  3920 
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3910  PRINT  TAB(K) ;" ( - (" 

:GOSUB  '90 

: PRINT  TAB(K);”  *  *•' 

:GOSUB  '90 

:IF  A2$="PRINT”  THEN  PRINT  TAB(K) ; "  *  PRINT 

:ELSEPRINT  TAB(K) *  PRINTUSING  *  ";B2$ 

3920  X=X+1 
: RETURN 

3930  REM  515 

SUBROUTINE  (DEFFN  ’83)  . 


3940  DEFFN  '83 
:K=E*20 
:Y0=0 

:IF  E=0  THEN  K=1 
:GOSUB  '90 

:IF  M0D(X,2)=0  THEN  PRINT  TAB (K) ; ”/===============/" 

:ELSEPRINT  TAB(K);"  =================" 

:IF  E=0  THEN  K=0 
:GOSUB  *8 
:  RE  TURN 

3950  REM  516 

SUBROUTINE  (DEFFN  '66)  . 


3960  DEFFN  '66 

:IF  U6=0  THEN  RETURN 

:IF  U6=2  AND  STR(A$,1,J-1)=N$  THEN  RETURN 
:U6=0 

:IF  X0=1  THEN  QOSUB  '81 
:IF  Y0=1  THEN  QOSUB  '83 
:E=E-1 
:K=E*20 

:IF  E=0  THEN  K=1 

: PRINT  TAB(K);"  I - [ - 1” 

: RETURN 

9500  REM  516 

GENERAL  SUBROUTINE  XXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  X 

:PRINT  HEX(030E) ; "YOU  HAVE  LOADED  'DEFFNO'  THE  GENERAL 
HEX(OA) 

:LIST 

:END 


*  "  *  B2$ 


SUBROUTINES" 
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9530  DEFFN  '0  "SCRATCHT"; HEX(22) ; "BASCHART HEX (22) ; •' :SAVET$  ()";HEX(22) 
;  "B  ASCH  ART  " ;  HE  X  ( 22 00 ) 

9570  DEFFN  '31 
:G0T0  1430 
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